，如何让文本框获得焦点时文本的原来内容为全部选定状态

请教各位，怎么让文本框获得焦点时文本的原来内容为全部选定状态？
请教各位，怎么让文本框获得焦点时文本的原来内容为全部选定状态？
  这样做为了在下次输入时方便。

[解决办法]
Private Sub TextSelectAll(ByVal AText As TextBox)
AText.SelStart = 0
AText.SelLength = Len(AText.Text)
End Sub

Private Sub Text1_GotFocus()
TextSelectAll Text1 '调用TextSelectAll即可
End Sub