怎样让运行的窗体总是显示在最前？

Question

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)Sub SetWindowApi(ByVal hwnd As Long, ByVal SetPos As Boolean)
    If SetPos = True Then
        SetWindowPos hwnd, -1, 0, 0, 0, 0, 3
    Else
        SetWindowPos hwnd, -2, 0, 0, 0, 0, 3
    End If
End SubSetWindowApi 窗体句柄，布尔值（True设置在前False取消在前） 
 

Answer 1

api:setwindowposhttp://ygyuan.go.163.com/
http://ygyuan.3322.net/

Answer 2

把这些代码拷贝到窗体中，保证达到要求。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
Const HWND_TOPMOST = -1
Const SWP_SHOWWINDOW = &H40
Private Sub Form_load()
Dim retValue As Long
'将窗体设置为处于所有窗口的顶层，注意在 VB 中运行时，可能不行，但编译成EXE后就可以了
retValue = SetWindowPos(Me.hwnd, HWND_TOPMOST, Me.CurrentX, Me.CurrentY, 300, 300, SWP_SHOWWINDOW)
End Sub

Answer 3

http://www.csdn.net/expert/topic/622/622052.xml?temp=.3550836

Answer 4

http://www.csdn.net/expert/topic/622/622052.xml?temp=.3550836