选择文本内容，设置文本框的SelStart和SelLength属性值即可完成文本的选择。
SelStart为文本选择的起点，SelLength为文本选择的长度。
如果选择Text1中的所有文本内容，代码如下：
Text1.SelStart = 0
Text1.SelLength = Len(Text1.Text)
Text1.SetFocus
如果窗体运行时，选中Text1中的所有文本内容，则在form中添加上面的代码，但是需要去掉获得焦点；当按下tab键获焦点，也需在form中添加相应的代码。