VB Forum / General 2 / August 2005

Try this Click event code for the control array.

Private Sub Check1_Click(Index As Integer)
 If Index = 1 And Check1(1).Value = 1 Then
   Check1(0).Value = 0
   Check1(2).Value = 0
 End If
End Sub

Rick

Try this -- it shows how to have only one of a given option control array
checked (e.g. check #1, 0 and 2 are unchecked. Check #0, 1 and 2 a unchecked
...

Private Sub Check1_Click(Index As Integer)

  Static working As Boolean

 'prevent recursion
  If Not working Then

     working = True
     Check1(0).Value = Abs(Index = 0)
     Check1(1).Value = Abs(Index = 1)
     Check1(2).Value = Abs(Index = 2)
    'add others as required
  End If

  working = False

End Sub