For Each verfahren In colVerfahren
    Set chkbox = Me.Controls.Add("Forms.CheckBox.1")
        With chkbox
             top = top + 20
            .Name = verfahren.Bezeichnung
            .Caption = verfahren.Bezeichnung
            .ControlTipText = verfahren.Beschreibung
            .Width = 141
            .Height = 17.25
            .Font = 10
 
            If s > ProSpalte Then
                Spalte = Spalte + 160
                s = 0
                top = 170
            End If
            .top = top
            .Left = Spalte
            s = s + 1
 
        End With
 Next

Private Sub CommandButton1_Click()
'Dim ctl As Control
Dim ctl As MSForms.Controls
 
For Each ctl In Me.Controls
    If TypeOf ctl Is MSForms.CheckBox Then
        Stop
    End If
Next
End Sub