选择文本内容，设置文本框的SelStart和SelLength属性值即可完成文本的选择。

SelStart为文本选择的起点，SelLength为文本选择的长度。

如果选择Text1中的所有文本内容，代码如下：

Text1.SelStart = 0

Text1.SelLength = Len(Text1.Text)

Text1.SetFocus

如果窗体运行时，选中Text1中的所有文本内容，则在form中添加上面的代码，但是需要去掉获得焦点；当按下tab键获焦点，也需在form中添加相应的代码。