Private Sub Check1_Click(Index As Integer)
  Dim bResult As Boolean
  Dim i As Integer
 
  bResult = True
  For i = 0 To Check1.UBound
    If (Check1(i).Vaue <> 0 And Combo1(i).ListIndex = 0) Then
     bResult = False: Exit For
    End If
  Next i
 
  btnUebernehmen.Enabled = bResult
End Sub