dim i, Bis,Markiert as integer = 0 
 
Bis = ???
 
      For Each c As Control In Me.Controls
            If TypeOf c Is CheckBox Then
               i += 1  
               If c.Checked = True Then
                     Markiert  += 1  
                End If
            End If
            if i > Bis - 1 then
                exit for
            end if
        Next
 
msgbox("Es sind " & Markiert  & " Elemente der ersten " & Bis & " markiert!")