Как отследить движение мыши и использование клавиатуры? - VB

Private Type POINTAPI
    x As Long
    y As Long
End Type
 
'// Узнать текущую позицию курсора
Private Declare Function GetCursorPos Lib 'user32' (lpPoint As POINTAPI) As Long
'// узнает hwnd окна, на которое указывает курсор
Private Declare Function WindowFromPoint Lib 'user32' (ByVal xPoint As Long, ByVal yPoint As Long) As Long
 
Dim ptMouse As POINTAPI
 
Private Sub Timer1_Timer
  GetCursorPos ptMouse
  If WindowFromPoint(ptMouse.x, ptMouse.y) = Form1.hwnd Then
    '// Курсор в пределах формы
  Else
    '// Ого! Вышел
    MsgBox 'Alarm!
  End If  
End Sub