'ALLGEMEIN-TEIL
Dim ElapsedTime as new TimeSpan
Dim StartTime as new TimeSpan
 
Sub Timer1_Tick(sender as Object, e as System.EventArgs) Handles Timer1.Tick
  ElapsedTime =    DateTime.Now.TimeOfDay.Subtract(StartTime)
  Me.Label1.Text = ElapsedTime.ToString() 
End Sub
 
Sub Form1_Load(sender as Object, e as System.EventArgs) Handles MyBase.Load
  Me.Timer1.Enabled = True
  Me.Timer1.Interval = 10
  StartTime = DateTime.Now.TimeOfDay
End Sub