Public Class Form1
    Private Sub Timer1_Tick(sender As Object, e As EventArgs) Handles _
      Timer1.Tick
        Sekunden.Text = DateTime.Now.Second
        Stunden.Text = DateTime.Now.Hour
    End Sub
 
    Private Sub Sekunden_TextChanged(sender As Object, e As EventArgs) Handles _
      Sekunden.TextChanged
 
        If IsNumeric(Label1.Text) Then
            Label1.Text = Label1.Text + 1
        Else
 
        End If
    End Sub
    Private Sub Stunden_TextChanged(sender As Object, e As EventArgs) Handles _
      Stunden.TextChanged
        Ergebnis.Text = Label1.Text
 
    End Sub
 
End Class