Dim i As Long Private Sub Command1_Click() i = i + 1 Debug.Print i End Sub Private Sub Timer1_Timer() Command1_Click End Sub