Private Sub Command1_Click()
Unload Me
End Sub

Private Sub Form_Load()
hHook = SetWindowsHookEx(WH_KEYBOARD, AddressOf KeyboardProc, App.hInstance, 0)
End Sub

Private Sub Form_Unload(Cancel As Integer)
Dim l As Long
If hHook Then
l = UnhookWindowsHookEx(hHook)
hHook = 0
End If
End
End Sub