单选框的问题

Question

做了两个单选框，每个单选框后面有TEXT用于输入数据进行数据库查询，但我的目的是选一个单选框光标停在后面的那个TEXT里，并且另一个TEXT为灰色不可输入，我写的代码如下，好象不行
.....
If Option1.Value = True Then
  Text1.SetFocus
  Text2显示灰色用什么
   ........
ElseIf Option2.Value = True Then
  Text2.SetFocus
  Text1显示灰色用什么
  ......
End If

Answer 1

If Option1.Value = True Then
  text1.enabled=true
  Text1.SetFocus
  Text2.enabled=false
   ........
ElseIf Option2.Value = True Then
  text2.enabled=true
  Text2.SetFocus
  Text1.enabled=false
  ......
End If

Answer 2

If Option1.Value  Then
  '将Text1设置成正常。
  text1.enabled=true
  text1.backcolor=&H80000005
  '将Text2设置为不可用
  text2.enabled=false
  text2.backcolor= &H80000004  Text1.SetFocus
   ........
ElseIf Option2.Value = True Then
  text2.enabled=true
  text2.backcolor=&H80000005
  Text2.SetFocus  Text1.enabled=false
  text1.backcolor= &H80000004
  ......
End If

Answer 3

Private Sub Option1_Click()
If Option1.Value = True Then
   Text2.Enabled = False
   Text1.Enabled = True
   Text1.SetFocus
End If
End SubPrivate Sub Option2_Click()
If Option2.Value = True Then
   Text1.Enabled = False
   Text2.Enabled = True
   Text2.SetFocus
   End If
End Sub
 你在两个单选框事件中分别写代码就可以了。