VB中控制窗体位置方法

★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★窗体前置或后置
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)
' 上面为窗口置前声明

' 窗口置前
'Dim myval As Integer
myval = SetWindowPos(Form1.hwnd, -1, 0, 0, 0, 0, 3)

'窗口正常
'Dim myval As Integer
myval = SetWindowPos(Form1.hwnd, -2, 0, 0, 0, 0, 3)

'窗口置后
'Dim myval As Integer
myval = SetWindowPos(Form1.hwnd, 1, 0, 0, 0, 0, 3)
'★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★★窗体前置或后置