For x = 1 to irgendwas
 
   zeigen = False
 
   for y = 1 to 10    ' das sind die Checkboxen
      if Checkbox(y).Value=1 then
         if Klasse(x).Wert = Val(Checkbox(y).Tag) then ' den Vergleichswert der 
         ' Einfachheit halber
                                                       ' der Tag-Eigenschaft 
                                                       ' zugewiesen
            zeigen = True
            Exit for
         end if
      end if
   next y
 
   if zeigen then Datensatz anzeigen
 
next x