[Omar 6.0]

يمكن الاستفادة من الخاصية Index في كل من Command و Option حيث:

كود :

Private Sub Option1_Click(Index As Integer)
For i = 0 To 2
Command1(i).Enabled = False
Next
Command1(Index).Enabled = True
End Sub

أي عدد أزرار الأوامر يساوي عدد أدوات Option و لكن مع Index