vb实现自动选择Text的内容

vb实现自动选择Text的内容2010-03-12在使用VFP的应用进行录入时，每进入一个录入框，就自动选择该框中的所有内容。利用以下的代码，也可实现类似的功能。

Private Sub MyTextBox_GotFocus（）
AutoSelect MyTextBox
End Sub

Sub AutoSelect（SelObject As Control）
SelObject.SelStart = 0
If TypeOf SelObject Is MaskEdBox Then
SelObject.SelLength = Len（SelObject.FormattedText）
Else
If TypeOf SelObject Is TextBox Then
SelObject.SelLength = Len（SelObject.Text）
End If
End If
End Sub