Aflæs pixelposition

Kode 

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

Private Type POINTAPI
        x As Long
        y As Long
End Type
Dim a As POINTAPI
Dim b As Long
Dim c As Long


Private Sub mousepos()
ret = GetCursorPos(a)
b = a.x
c = a.y
Label1.Caption = b
Label2.Caption = c
End Sub

Private Sub Form_Load()
Timer1.Interval = 1


End Sub

Private Sub Timer1_Timer()
mousepos
End Sub