文本框有 表示选择开始。长度的属性，
公司主营业务：做网站、成都网站制作、移动网站开发等业务。帮助企业客户真正实现互联网宣传，提高企业的竞争能力。创新互联是一支青春激扬、勤奋敬业、活力青春激扬、勤奋敬业、活力澎湃、和谐高效的团队。公司秉承以“开放、自由、严谨、自律”为核心的企业文化，感谢他们对我们的高要求，感谢他们从不同领域给我们带来的挑战，让我们激情的团队有机会用头脑与智慧不断的给客户带来惊喜。创新互联推出蕲春免费做网站回馈大家。
好像是 selStart 和selTextLength，这两个属性都是可读写的
再结合字符串查找函数就可以做到了。
////////
给点分啊，我帮你写了^_^
vs2005 ＋vb.net 测试通过，
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
TextBox1.Text = "我爱编程－百度知道"
End Sub
Private Sub TextBox1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.Click
Dim curindex As Integer = TextBox1.SelectionStart
Dim ganindex As Integer = TextBox1.Text.IndexOf("－")
If curindex ganindex Then
TextBox1.SelectionStart = 0
TextBox1.SelectionLength = ganindex
Else
TextBox1.SelectionStart = ganindex + 1
TextBox1.SelectionLength = TextBox1.Text.Length - ganindex
End If
End Sub
End Class
如果是6.0 的话，可能属性名字有点变化，indexof函数可以使用
mid或者 instr函数来代替
1）在窗体上布置一个TextBox和一个Command控件
2）窗体代码
Option Explicit
Private Sub Command1_Click()
'选择文本框中所有文本
With Text1
.SelStart = 0
.SelLength = Len(Text1.Text)
'让文本框获取焦点
.SetFocus
End With
End Sub
Private Sub Form_Load()
'在TextBox中显示一些文本
Text1.Text = "Visual Basic是一种可视化程序设计语言"
'命令按钮的提示
Command1.Caption = "选择所有文本"
End Sub
Private Sub Text1_GotFocus() '当Text1获得焦点时，最后一个字符串被选中
Text1.SelStart = InStrRev(Text1.Text, " ")
Text1.SelLength = Len(Text1.Text)
Text1_MouseUp 0, 0, 0, 0 '同时把选中内容放入Text2
End Sub
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer)
Text1_MouseUp 0, 0, 0, 0 '如果选择是通过键盘完成的，也放入Text2中
End Sub
Private Sub Text1_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) '这个则是处理用鼠标来选定的情况，不管是双击还是拖动选择均可
If Text1.SelText "" Then Text2.Text = Text1.SelText '如果Text1存在被选中的字符就放入Text2中
End Sub
