如何实现TextBox控件获得焦点时选中文本

有时我们想在textbox控件获得焦点时而选中textbox中的所有文本，这可通过SelStart和SelLength属性来达到。具体来讲就是在对象得到焦点时，从最前面开始选取（SelStart=0），选取的长度为文本长度（Len（Text1）），源代码如下：

Private Sub Text1_GotFocus()
               Text1.SelStart = 0
               Text1.SelLength = Len(Text1)
        End Sub

GotFocus事件是在控件获得焦点时发生。