Private Sub Check1_Click(Index As Integer)
Dim i As Integer
 
 
If Check1(0).Value = vbChecked Then
   For i = 1 To 4
      Check1(i).Value = vbUnchecked
   Next i
End If
If Check1(0).Value = vbUnchecked Then
   For i = 1 To 4
      Check1(i).Value = vbChecked
   Next i
End If
 
End Sub
 
Private Sub Form_Load()
Check1(0).Value = vbChecked
End Sub

MfG Sanni

* Phantasie ist wichtiger als Wissen, denn Wissen ist begrenzt *