Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
   System.EventArgs) Handles Button2.Click
        ' Die Ankunftszeit in die Textbox schreiben
        TxtKommt.Text = Now.ToLongTimeString
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        TxtGeht.Text = Now.ToLongTimeString ' Der Junge geht nach Hause
        Dim pause As New TimeSpan(1, 0, 0) ' hat eine Stunde Pause gemacht
        Dim kommtZeit As DateTime
        Dim gehtZeit As DateTime
        'Die beiden Zeiten aus den TextBoxen auslesen
        Dim b1 As Boolean = DateTime.TryParse(TxtKommt.Text, kommtZeit)
        Dim b2 As Boolean = DateTime.TryParse(TxtGeht.Text, gehtZeit)
        'wenn erfolgreich die Arbeitszeit berechnen und ausgeben
        If b1 And b2 Then
            ' Datetime.substract liefert einen TimeSpan zurück, von dem wir 
            ' wieder einen Timespan subtrahieren können. 
            TxtGesamt.Text = gehtZeit.Subtract(kommtZeit).Duration.Subtract( _
              pause).ToString
        End If
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus