'Private LastMoveTime As DateTime
Private MilliSecondsFromLastMove As Integer = 0
Private MouseTimeoutMilliseconds As Integer = 2000 '500
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Start.Click
MilliSecondsFromLastMove = 0
Timer1.Start()
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Btn_Stop.Click
Timer1.Stop()
End Sub
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
If MilliSecondsFromLastMove >= MouseTimeoutMilliseconds Then Timer1.Stop()
Timer1.Interval = 10
Label4.Text += 1
MilliSecondsFromLastMove += 100
If Label4.Text = "60" Then
Label3.Text += 1
Label4.Text = "00"
End If
If Label3.Text = "60" Then
Label2.Text += 1
Label3.Text = "00"
End If
If Label2.Text = "60" Then
Label1.Text += 1
Label2.Text = "00"
End If
End Sub
Private Sub Form1_MouseMove(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseMove
MilliSecondsFromLastMove = 0
End Sub