Option Explicit Dim a As Integer Private Sub Command1_Click() Dim i As Integer For i = 0 To 9 Command2_Click Next i End Sub Private Sub Command2_Click() a = a + 1 MsgBox a End Sub Private Sub Form_Load() a = 0 End Sub