Public Sub Timer1_Timer()

Print Str(Time(Now))

End