如何实现选中Textbox中文本的一部分

Question

如题，我想知道如何编程实现选中Textbox中文本的一部分。
比如
text1.text="我爱北京天安门"
该怎样编写仅选中“北京”两个字，仅仅使这两个字底色变蓝。
谢谢哈~

Answer 1

Private Sub Form_Load()
Text1.Text = "我爱北京天安门"
End SubPrivate Sub Text1_GotFocus()
Text1.SelStart = 2
Text1.SelLength = 2
End Sub

Answer 2

Private Sub Form_Load()
Text1.Text = "我爱北京天安门"
End SubPrivate Sub Command2_Click()
text1.setfocus
Text1.SelStart = 2
Text1.SelLength = 2
end sub

Answer 3

同上
SelLength、SelStart、SelText 属性
SelLength－返回或设置所选择的字符数。
SelStart－返回或设置所选择的文本的起始点；如果没有文本被选中，则指出插入点的位置。
SelText－返回或设置包含当前所选择文本的字符串；如果没有字符被选中，则为零长度字符串 ("")。 
这些属性在设计时是不可用的。

Answer 4

.SelStart
.SelLength
蹭点分花花