Option Explicit
Private Sub Command1_Click() If Command1.Caption = "Start" Then Command1.Caption = "Stop" MsgBox "Start" Else Command1.Caption = "Start" MsgBox "Stop" End If End Sub
Private Sub Form_Load() Command1.Caption = "Start"End Sub