VB6

TextBox1.SetFocus    '获得焦点
TextBox1.SelStart = 0    '选取的起始位置设为0，即从头开始进行文本框内容的选取
TextBox1.SelLength = Len(txtUserName.Text)    '选取内容的长度为文本框已经接受的文本长度

VB.NET

TextBox1.Focus()        '文本框获得焦点
TextBox1.SelectionStart = 0     '选取的起始位置设为0，即从头开始进行文本框内容的选取
TextBox1.SelectionLength = Len(TextBox1.Text)       '选取内容的长度为文本框已经接受的文本长度

比较

函数在VB和VB.NET中的功能是一样的，只不过是换了个名字。

感谢您的宝贵时间，祝生活愉快，谢谢~~

—joker