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

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

比较

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

—joker