Vb6 在VB ActiveX文本框中显示光标

我有我的Companyby使用的现有Word 2007表单的以下代码，我被要求查看是否可以添加cusror以在启用时显示在ActiveX文本框中

表单上有3个选项按钮和2个文本框，根据单选按钮的不同，select将启用相关文本框，但我似乎可以在启用时在文本框中显示光标

表单上还有很多其他的文本框，都是ArctiveX，所以我不认为我可以在“加载”时使用它，或者我可以吗

Private Sub OptionButton1_Click()

If OptionButton1.Value = True Then
TextBox1.Enabled = False
TextBox2.Enabled = False
TextBox1.BackColor = &HE0E0E0
TextBox2.BackColor = &HE0E0E0
TextBox1.Text = Empty
TextBox2.Text = Empty
End If

End Sub

----------------------------------------------

Private Sub OptionButton2_Click()

If OptionButton2.Value = True Then
TextBox1.Enabled = True
TextBox2.Enabled = False
TextBox1.BackColor = &HFFFFFF
TextBox2.BackColor = &HE0E0E0
TextBox2.Text = Empty
End If

End Sub

----------------------------------------------

Private Sub OptionButton3_Click()

If OptionButton3.Value = True Then
TextBox1.Enabled = False
TextBox2.Enabled = True
TextBox1.BackColor = &HE0E0E0
TextBox2.BackColor = &HFFFFFF
TextBox1.Text = Empty
End If

End Sub

----------------------------------------------

Private Sub TextBox1_Change()

End Sub

----------------------------------------------

Private Sub TextBox2_Change()

End Sub

---

如果我对你的问题理解正确的话，它就会解决你的问题

TextBox1.Enabled = True
TextBox1.SetFocus

---

您需要激活文本框，例如

TextBox1.Activate

---

谢谢你的回复。我已尝试使用您在TextBox1_Change（）下建议的内容，但“TextBox1.SetFocus”会导致错误。我还尝试添加到“如果”，但仍然不起作用。放置TextBox1.SetFocus on option按钮2\u Click（）感谢更新，但仍然不起作用。我在进行选择时出现调试错误谢谢。其工作原理与我所需的完全相同，但当“TextBox2.Enabled=False”时，光标仍显示在最后一个“Active”字段中。是否有办法停止此操作，因为我只希望在“TextBox2.Enabled=True”时显示光标