In diesem Beispiel wird das Datum und die Zeit in einem Bereich hinterlegt, wenn der Cursor der Maus über die Form oder über das Label bewegt wird.

Bewegt sich der Cursor innerhalb von 10 Sekunden nicht über die Form, oder das Label,

Toolbox:
Form1, Label1

Quellcode:

Public Class Form1

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        T1 = Now
        Timer1.Interval = 1000 ' Der Timer aktiviert alle 1 Sekunde (1000 Millisekunden) seine Abfrage
        Timer1.Start()

    End Sub

    Private T1 As DateTime

    Private Sub Form1_MouseMove(sender As Object, e As MouseEventArgs) Handles Me.MouseMove

        T1 = Now ' Der Mouse Cursor hat sich über der Form bewegt. Nun wird das aktuelle Datum und die Zeit neu hinterlegt

    End Sub

    Private Sub Label1_MouseMove(sender As Object, e As MouseEventArgs) Handles Label1.MouseMove

        T1 = Now ' Der Mouse Cursor hat sich über das Label bewegt. Nun wird das aktuelle Datum und die Zeit neu hinterlegt

    End Sub

    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles Timer1.Tick

        Dim c As Double = DateDiff(DateInterval.Second, T1, Now)

        If c > 10 Then ' Die Zeitspanne liegt über 10 Sekunden
            Label1.Text = "Zeit überzogen von 10 Sekunden"
            Label1.ForeColor = Color.Red

        Else ' Die Zeitspanne liegt im 10 Sekundenbereich
            Label1.Text = "Innerhalb von 10 Sekunden"
            Label1.ForeColor = Color.Black

        End If

    End Sub

End Class