Private Sub Check1_Click()
If Check2.Value = 1 Then Check2.Value = 0
If Check3.Value = 1 Then Check3.Value = 0
If Check4.Value = 1 Then Check4.Value = 0
If Check5.Value = 1 Then Check5.Value = 0
If Check1.Value = 1 Then Text1.Text = Check1.Caption
If Check1.Value = 0 Then Text1.Text = ""
End Sub


I want to do the same with control Array :

My Code :

If Check1(Index) Then
Text1.Text = Check1(Index).Caption
Else
For k = 0 To Check1.Count
Text1.Text = ""
Check1(i).Value = 0
Next
End If

But I can not get the same result with this code. Plz help.

You can save yourself a lot of time and code by using an array of option buttons instead of check boxes...

Private Sub Option1_Click(Index As Integer)
Text1.Text = Option1(Index).Caption
End Sub

and that is all the code you need...

Good Luck