Public Class Form1
 
    Dim Startzeit As Date = DateAdd("s", -5, Now)
    Dim Endzeit As Date = DateAdd("s", 5, Now)
    Dim Jetztzeit As Date = Now
 
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        txtStartzeit.Text = Startzeit
        txtEndzeit.Text = Endzeit
        txtJetztzeit.Text = Jetztzeit
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        If (Startzeit < Jetztzeit) And (Jetztzeit < Endzeit) Then
            MessageBox.Show("Die Zeit liegt voll im Rahmen!")
        Else
            MessageBox.Show("Die Zeit liegt außerhalb des Rahmens!")
        End If
    End Sub
End Class

EALA FREYA FRESENA