Private Sub Form_Load()
    Dim NextT, NextL
    NextT = 120
    NextL = 120
    For i = 0 To SCCNT - 1
         If i Mod 3 = 0 And i > 0 Then
            NextT = NextT + 375 + 60
            NextL = 120
         End If
            Dim objNew As clsBtn
            Set objNew = New clsBtn
            Set SelObjBtn = objNew.objBtn
            Set objNew.objBtn = Me.Controls.Add("Forms.CommandButton.1", "cmd" _
              & i)
            With objNew.objBtn
                .Top = NextT
                .Left = NextL
                .Width = 1695
                .Height = 375
                .Caption = PrName(i) & i
                .Visible = True
            End With
            If InAction(i) = False Then
                objNew.objBtn.Enabled = False
            End If
 
            BtnAno(i).VonY = NextT
            BtnAno(i).BisY = NextT + 375
            BtnAno(i).Vonx = NextL
 
            NextL = NextL + 1695 + 60
 
            BtnAno(i).BisX = NextL + 120
            objEvents.Add objNew
    Next
End Sub

Public WithEvents objBtn As MSForms.CommandButton
Private Sub objBtn_Click()
     msgbox "test"
End Sub