If MausAktiv then i = 0

Option Explicit
 
Public Type POINTAPI
    x As Long
    y As Long
End Type
 
Public Declare Sub GetCursorPos Lib "user32" (lpPoint As POINTAPI)
 
 
Public Function MausAktiv() As Boolean
 
Dim tPOS As POINTAPI
Static tPOSalt As POINTAPI
 
Call GetCursorPos(tPOS)
 
If tPOSalt.x = 0 Or tPOSalt.y = 0 Then
 
  tPOSalt.x = tPOS.x
  tPOSalt.y = tPOS.y
  Exit Function
End If
 
If Abs(tPOS.x - tPOSalt.x) > 10 Or Abs(tPOS.y - tPOSalt.y) > 10 Then
 
  MausAktiv = True
End If
 
  tPOSalt.x = tPOS.x
  tPOSalt.y = tPOS.y
 
End Function