Imports System.Globalization  'CulturInfo

Public Class Form1

  Private myTimer As Timer
  Private myStopwatch As New Stopwatch
  Dim paused As Boolean = False

  Private Sub Form1_Load(ByVal sender As System.Object, _
          ByVal e As System.EventArgs) Handles MyBase.Load
    Label1.Text = "Verstrichene Zeit:"
    Label2.Text = "Stunden:Minuten:Sekunden.Millisekunden"

    myTimer = New Timer
    myTimer.Interval = 100
    AddHandler myTimer.Tick, AddressOf myTimer_Tick
    myTimer.Start()
  End Sub

  Private Sub myTimer_Tick(ByVal sender As System.Object, _
          ByVal e As System.EventArgs)
     'Vertsrichene Zeit
    If myStopwatch.IsRunning Then
      Dim ts As TimeSpan = _
         TimeSpan.FromMilliseconds(myStopwatch.ElapsedMilliseconds)
      lblPastedTime.Text = _
         String.Format(CultureInfo.CurrentCulture, _
         "{0:00}:{1:00}:{2:00}.{3:00}", ts.Hours, ts.Minutes, _
         ts.Seconds, ts.Milliseconds)
    End If
  End Sub

  Private Sub btnStartStop_Click(ByVal sender As System.Object, _
        ByVal e As System.EventArgs) Handles btnStartStop.Click
    If myStopwatch.IsRunning Then
      If chkboxReset.Checked = False Then
          ' Zeitmessung auf 0 setzen
         myStopwatch.Reset()
      End If

      myStopwatch.Stop()
      Console.Beep()
      btnStartStop.Text = "Start"
    Else
      If chkboxReset.Checked = False Then
        ' Zeitmessung auf 0 setzen
        myStopwatch.Reset()
      End If

      myStopwatch.Start()
      btnStartStop.Text = "Stop"
    End If
  End Sub

End Class