Option Explicit
 
Private Sub Command1_Click()
MsgBox "start!"
End Sub
 
Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 1000
End Sub
 
Private Sub Timer1_Timer()
If Check1 = vbChecked Then
Call Command1_Click
End If
End Sub