VB嵌其他代码

建立一个窗体form1和一个模块module1

窗体代码：

Option Explicit
Const HWND_TOPMOST = -1
Const HWND_NOTOPMOST = -2
Const SWP_NOSIZE = &H1
Const SWP_NOMOVE = &H2
Const SWP_NOACTIVATE = &H10
Const SWP_SHOWWINDOW = &H40
Private Declare Sub 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)

Private Sub Form_Activate()
'设置窗口为TOPMOST窗口，目的是便于观察
SetWindowPos Me.hWnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOACTIVATE Or SWP_SHOWWINDOW Or SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Form_Load()
Dim RT As RECT
With RT
.Left = 0
.Right = 400
.Top = 0
.Bottom = 300
End With
EnableHook RT
End Sub

Private Sub Form_Unload(Cancel As Integer)
FreeHook
End Sub

模块代码：
<