' Diese var. müssen in den Allgemein-Teil
Dim ElapsedTime as new TimeSpan
Dim StartTime as new TimeSpan
 
Sub Form_Load([..])
   StartTime = DateTime.Now.TimeOfDay;
End Sub
 
Sub Timer_Tick([..])
ElapsedTime = 	DateTime.Now.TimeOfDay.Subtract(StartTime)
Me.Label1.Text = ElapsedTime.ToString () 
End Sub