Private Sub Timer1_Timer()
Form1.Cls
Print Year(Now) & ":" & Format(Month(Now), "00") & ":" & Day(Now)
Print Hour(Now) & ":" & Format(Minute(Now), "00") & "." & Format(Second(Now), "00")
End Sub