A.Private Sub Timer1_Timer() LabelCaption=True End Sub B.Private Sub Timer1_Timer() LabelCaption=Time$ End Sub C.Private Sub Timer1_Timer() LabelInterval=1 End Sub D.Private Sub Timer1_Timer() For k=1 To TimerInterval Label1.Caption=Timer Next K End Sub