Public Class Form1
    Dim startZeit As Date
 
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
        startZeit = Now
    End Sub
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim ts As TimeSpan = Now - startZeit
        Dim sb As New System.Text.StringBuilder
        With sb
            .AppendLine("Verstrichene Zeit seit Anwendungstart: " & ts.ToString)
            .AppendLine(String.Format("Also {0} Tag(e), {1} Stunde(n), {2}" & _
              "Minute(n), {3} Sekunde(n) und {4} Milisekunde(n)", ts.Days, _
              ts.Hours, ts.Minutes, ts.Seconds, ts.Milliseconds) & vbCrLf)
            .AppendLine("Angabe in Tage: " & ts.TotalDays)
            .AppendLine("Angabe in Stunden: " & ts.TotalHours)
            .AppendLine("Angabe in Minuten: " & ts.TotalMinutes)
            .AppendLine("Angabe in Sekunden: " & ts.TotalSeconds & vbCrLf)
        End With
        MsgBox(sb.ToString)
    End Sub
End Class