Private Sub Form_Load()
Call HookWindow(Me.hWnd)
End Sub
Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)
Call UnhookWindow(Me.hWnd)
End Sub