[5分]请教让某个窗口始终处于最顶层的vba代码

把下面的代码放到一个模块中 ：
Private Declare Function SetWindowPos Lib "user32" (ByVal Hwnd As Long, ByVal hWndInsertAfter As Long, ByVal X As Long, ByVal Y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As Long) As Long


Function FormOnTop(Hwnd As Long, OnTop As Boolean)
    SetWindowPos Hwnd, IIf(OnTop, -1, -2), 0, 0, 0, 0, 3
End Function

然后调用该函数：

FormOnTop Me.Hwnd, True '窗体置顶

FormOnTop Me.Hwnd, False '取消窗体置顶