APrivate Sub Timer1_Timer()
Label1.Caption=True
End Sub
BPrivate Sub Timer1_Timer()
Label1.Caption=Time$
End Sub
CPrivate Sub Timer1_Timer()
Label1.Interval=1
End Sub
DPrivate Sub Timer1_Timer()
For k=1 To Timer1.Interval
Label1.Caption=Timer
Next k
End Sub