Перехватить нажатие кнопки - VB

Dim ZAG As Boolean
Dim N(10)
 
Private Sub Комманда2_Click(Index As Integer)
 Dim i As Integer
 Select Case ZAG
Case True
N(Index) = N(Index) + 1
MsgBox "Кнопку " & Комманда2(Index).Caption & " нажали  " & N(Index) & " раз!", 64, "Вот, примерно, можно так!"
 Case False
   For i = 1 To 10
    Load Комманда2(i)
        With Комманда2(i)
            .Visible = True
            .Top = i * 500
            .Left = 500
            .Height = 300
            .Width = 1000
            .Caption = "Кнопа " & i
        End With
        Next
        ZAG = True
    End Select
End Sub