[Keithuk]

Well because its a control array you can use a For/Next loop to remove all check marks then just check the selected Index.

Code:

Private Sub menu_Click(Index As Integer)

Dim N As Integer

'Find the Lower and Upper Index value
For N = LBound(menu) To UBound(menu)
     menu(N).Checked = False
Next
menu(Index).Checked = True

End sub

I don't have VB on my comp at work so I can't try it. Providing LBound and UBound return values it should work.