---

Få fat i musepositionen over hele skærmen.

Lav et module, og tilføj :

*******************************
Type PointAPI
x As Long
y As Long
End Type

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

*******************************

I din form under Mousemose skriv :

Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim Pnt As PointAPI
GetCursorPos Pnt
Me.Cls
Me.Print "Museposition : "; Pnt.X; ","; Pnt.Y
End Sub

---

---

Eftersom du ikke er logget ind i systemet, kan du ikke lave en bedømmelse til dette tip.

Hvis du ikke allerede er registreret, kan du gratis blive medlem, ved at trykke på "Bliv medlem" ude i menuen.