vb 窗体综总是保存其他窗口的最前面

Option Explicit 
Const SWP_NOSIZE = &H1 
Const SWP_NOMOVE = &H2 
Const SWP_NOACTIVATE = &H10 
Const HWND_TOPMOST = -1 
Const HWND_NOTOPMOST = -2 
Const SWP_SHOWWINDOW = &H40 
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 
Private ShuX As Integer 
Private Sub Form_Load() 
'窗体总在最前 
SetWindowPos hwnd, HWND_TOPMOST, 0, 0, 0, 0, _ 
     SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE 
End Sub