[VB6] Uso di CheckBox come OptionButton (mutualmente esclusivi)

[pascan2]

Select Case Index
Case 0
Check1(0).Value = 1: Check1(1).Value = 0: Check1(2).Value = 0
Case 1
Check1(0).Value = 0: Check1(1).Value = 1: Check1(2).Value = 0
Case 2
Check1(0).Value = 0: Check1(1).Value = 0: Check1(2).Value = 1
End Select