Option Explicit

'イベントクラスの宣言です
Private WithEvents clsTimer As TimerEvent

'フォームのロードです
Private Sub Form_Load()
    
    'イベントクラスのインスタンスの生成をします
    Set clsTimer = New TimerEvent
    
    'タイマーイベントのスピードを指定します
    'ここでは、1番速い0.001秒です
    clsTimer.Interval = 1
    
End Sub

'フォームのアンロードです
Private Sub Form_Unload(Cancel As Integer)

    'クラスの破棄します
    Set clsTimer = Nothing
    
End Sub

'Command1ボタンがクリックされました(開始ボタン)
Private Sub Command1_Click()
    
    'タイマーイベントを開始します
    clsTimer.Enabled = True
    
End Sub

'Command2ボタンがクリックされました（停止ボタン）
Private Sub Command2_Click()
    
    'タイマーイベントを停止します
    clsTimer.Enabled = False
    
End Sub

'///////////以下は、イベントクラスの処理です////////////

'タイマーイベントの処理です
Private Sub clsTimer_Timer()
    Static cnt As Long
    
    'テキストボックスに数字を表示します
    cnt = cnt + 1
    Text1.Text = cnt
    
End Sub