mainpptmmain.mdb Private Sub Command1_Click() If Command1.Caption = "Start" Then Timer1.Enabled = True Command1.Caption = "Stop" Else Timer1.Enable