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

Option Explicit
  Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
  Private Declare Function SetCursorPos Lib "user32" (ByVal x As Long, ByVal y As Long) As Long
  Private Type POINTAPI
          x As Long
          y As Long
  End Type
  Dim pa As POINTAPI
  Private Sub Timer1_Timer()
      GetCursorPos pa
      Caption = "X= " & pa.x & " :Y= " & pa.y
  End Sub