关于setwindowpos函数的。。。。。

Question

Private Declare Function SetWindowPos Lib "user32" (ByVal hwnd As Long, ByVal hWndInsertAfter As String, ByVal x As Long, ByVal y As Long, ByVal cx As Long, ByVal cy As Long, ByVal wFlags As String) As LongPrivate Sub Command1_Click()
Dim rns
If Command1.Caption = "设置窗体在前" Then
    Command1.Caption = "取消窗体在前"
    rns = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE) '在hWndInsertAfter属性中-1代表窗体在最顶层，-2代表不是在最顶层
Else
    Command1.Caption = "设置窗体在前"
    rns = SetWindowPos(hwnd, HWND_NOTOPMOST, 0, 0, 0, 0, SWP_NOSIZE)
End If
End Sub如果我要这样用这个函数：
rns = SetWindowPos(hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOSIZE)
用HWND_TOPMOST来代替数值，我应该怎么样定义setwindowpos这个函数？？？？

Answer 1

用HWND_TOPMOST来代替数值，我应该怎么样定义setwindowpos这个函数？？？？
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
？？？？？什么意思？？？？？

Answer 2

昏
你常量没声明Private Const HWND_BOTTOM = 1
Private Const HWND_NOTOPMOST = -2
Private Const HWND_TOP = 0
Private Const HWND_TOPMOST = -1

Answer 3

rns = SetWindowPos(hwnd, -2, 0, 0, 0, 0, 1)