Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Button1.Text = "Exit"
        Button2.Text = "24 (same day)"
        Button3.Text = "00 (different days)"
    End Sub
 
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
      Button1.Click
        Application.Exit()
    End Sub
 
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles _
      Button3.Click
        Dim startTime As System.TimeSpan = New System.TimeSpan(43, 22, 0, 0)    _
         ' 22 Uhr abends today
        Dim endTime As System.TimeSpan = New System.TimeSpan(44, 0, 0, 0)     _
        '00 Uhr morgen früh
        Dim duration As System.TimeSpan = endTime - startTime
        Label1.Text = Label1.Text & duration.ToString
    End Sub
 
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles _
      Button2.Click
        Dim startTime As System.TimeSpan = New System.TimeSpan(44, 22, 0, 0)    _
         ' 22 Uhr abends today
        Dim endTime As System.TimeSpan = New System.TimeSpan(44, 24, 0, 0)     _
        '24 Uhr heute
        Dim duration As System.TimeSpan = endTime - startTime
        Label1.Text = Label1.Text & duration.ToString
    End Sub
End Class