#If VBA7 Then
    Private Declare PtrSafe Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#Else
    Private Declare Function GetCursorPos Lib "user32" (lpPoint As POINTAPI) As Long
#End If


Private Type POINTAPI
        X As Long
        Y As Long
End Type

Dim a As POINTAPI
Dim b As Long
Dim c As Long
Dim ret As Variant
Dim ilk As String
Dim son As String
Dim say As Integer

Const sure As Long = 5 '5 demek 5 saniye
Const saniye As Long = 1000 'saniye cinsi


Private Sub Form_Load()
    TimerInterval = saniye
      ilk = mousepos
      say = 1
End Sub

Private Function mousepos() As String
    ret = GetCursorPos(a)
    b = a.X
    c = a.Y
    mousepos = "X:" & b & " ; Y :" & c
End Function

Sub mesajVer()
    MsgBox "Abi yorgunuz galiba" _
            & vbCrLf & " kalk yerine yat bende verileri kaybolmadan kaydedeyim" _
            & vbCrLf & " veya daha iyisi deðiþiklikleri geri alayým" _
            & vbCrLf & " sen bir ara tekrar bakarsýn", vbInformation, "Süre"
End Sub

Private Sub Form_Timer()

    If say Mod sure = 1 Then ilk = mousepos
    If say Mod sure = 0 Then son = mousepos
    
    If say Mod sure = 0 Then
      If ilk = son Then
            mesajVer
      End If
    End If
    
    txtSay.Value = say Mod sure
    say = say + 1

End Sub