VB文本框在获得焦点后，基中的文本设为选中状态？

Question

'    Purpose:
'     Author:吴文智
'       Date:2001-11-12
'Description:要试用本例请在窗体中填加一个文本框
'            然后在代码窗体中粘贴如下代码
'            Good luck!Option ExplicitPrivate Sub Text1_GotFocus()
    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
End Sub

Answer 1

Text1_gotfocus()
  text1.selstart=0
  text1.sellength=len(text1.text)
end sub

Answer 2

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