Private Sub Command1_Click() Timer1.Interval = 1000 End Sub Private Sub Command2_Click() Timer1.Interval = 0 End Sub Private Sub Timer1_Timer() Label1.Caption = Now() End Subthis is txt file