新建立类模块: Option Explicit Declare FunctionSetWindowPos() FunctionSetWindowPos&Lib"user32"(ByValhwndAsLong,ByValhWndInsertAfterAsLong,ByValXAsLong,ByValYAsLong,ByValcxAsLong,ByValcyAsLong,ByValwFlagsAsLong)PrivateSubForm_load()SubForm_load()Dimrtn'让窗口在顶层rtn=SetWindowPos(Me.hwnd,-1,0,0,0,0,3)'取消窗口在顶层'rtn=SetWindowPos(F_V.hwnd,-2,0,0,0,0,3)EndSub