自动选择Text的内容

使用VFP应用程序进行输入时，每次进入输入框，框中的所有内容都会被自动选中。使用下面的代码也可以实现类似的功能。
Private Sub MyTextBox _ got focus()
auto select MyTextBox
End Sub

Sub auto select(SelObject As Control)

SelObject。sel start = 0
如果SelObject的类型是MaskEdBox，则
SelObject。SelLength = Len(SelObject。FormattedText)
Else
如果SelObject的类型是TextBox，则
SelObject。SelLength = Len(SelObject。text)
End If
End If
End Sub