Private Declare Function GetCursorPos Lib "user32" ( _
    lpPoint As POINTAPI) As Long
 
Private Type POINTAPI
  x As Long
  y As Long
End Type
 
Private OldPos As POINTAPI
Private NewPos As POINTAPI
Private Weg As Single
Private Speed As Single
 
 
 
Private Sub Timer1_Timer()
 
OldPos = NewPos
GetCursorPos NewPos
 
Weg = Sqr((NewPos.x - OldPos.x) ^ 2 + (NewPos.y - OldPos.y) ^ 2)
 
Speed = Weg * 4
 
Label1.Caption = Speed & "  Pixel die Sekunde"
 
End Sub