Detecting MouseMove anywhere on screen

[5ilver5aracen]

Hi
Does anyone know how I can read the mouse x and y even when the mouse is outside of my form?
Many thanks in advance

 

[clapper62]

this is how I'm doing it in MS Access should be about the same in VB. the Form Timer will be a little different.

Private Type PointAPI
    X As Long
    Y As Long
End Type

Private Declare Function GetCursorPos Lib "user32" (lpPoint As PointAPI) As Long



Private Sub Mouse_Position(Button As Integer, Shift As Integer, X As Single, Y As Single)
    Dim Pnt As PointAPI   ' Declare a variable to use the UDT
    GetCursorPos Pnt      ' Call the API to return the x and y coordinates of the mouse pointer
    'Me.Cls
    'Me.Print "MousePointer is located at "; Pnt.X; ","; Pnt.Y
    Me.txtX = Pnt.X
    Me.txtY = Pnt.Y
    
End Sub



Private Sub Form_Timer()
    Call Mouse_Position(1, 0, 0, 0)
    
End Sub