请教,option按钮的设置问题

[lld1111]

我要用到3个option按钮,当按下第一个是是第二个变灰.当按下第三个是使第二个不是灰的.请指教..

[Cooly]

Private Sub Option1_Click()
Option2.Enabled = False
End Sub

Private Sub Option3_Click()
Option2.Enabled = True
End Sub

[lld1111]

我写的代码
Private Sub Option1_Click(Index As Integer)
If Option1(2).Enabled = True Then
Option1(1).Enabled = False
ElseIf Option1(0).Enabled = True Then
Option1(1).Enabled = True
End If


End Sub

[lld1111]

Cooly(Lazy):如果象你那样的,我就不能用数组了.是吗?

[lld1111]

控件Cooly(Lazy):如果象你那样的,我就不能用数组了.是吗?

[Cooly]

Private Sub Option1_Click(Index As Integer)
Select Case Index
Case 0
Option1(1).Enabled = False
Case 2
Option1(1).Enabled = True
End Select
End Sub