如何使VB窗口总在最前?

chc2203

而且不会被DIRECTX全屏的程序覆盖
请写清详细代码谢谢

Qrimkiss

Option Explicit
Const Hwndx = -1
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 Sub Form_Load()
Dim XX As Long
    XX = SetWindowPos(Me.Hwnd, Hwndx, 0, 0, 0, 0, 3)
End Sub