VB让窗口置顶

 

新建立类模块： 
Option Explicit 
Declare Function SetWindowPos()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) 
Private Sub Form_load()Sub Form_load()
Dim rtn 
'让窗口在顶层 
rtn = SetWindowPos(Me.hwnd, -1, 0, 0, 0, 0, 3) 
'取消窗口在顶层 
'rtn = SetWindowPos(F_V.hwnd, -2, 0, 0, 0, 0, 3)
End Sub