A.Privme Sub Timerl_Timer() Labell.Caption=True End Sub B.Private Sub Timer1_Timer() Labell.Caption=Time$ End Sub C.Private Sub Timerl_Timer() Labell.Interval=1 End Sub D.Privme Sub Timer1_Timer() For k=1 To Timer1.Interval Labell.Caption=Timer Next k End Sub