wieso so schwer ^^:
Label1.text = (TimeOfDay.Hour & ":" & TimeOfDay.Minute & ":" & TimeOfDay.Second)