关于TextBox的整个挑选问提

关于TextBox的整个选取问提
我想TextBox控件,鼠标一点上去,就整个选取,就像按Tab键移过去的效果,直接输内容把原内容删掉,是不是有属性可以设的,请指教

------解决方案--------------------
在 GotFocus 事件中写代码:

TextBox::GotFocus()
This.SelStart = 0
This.SelLength = 999999
NoDefault

------解决方案--------------------
TextBox 的 Click 事件:
This.SelStart = 0
This.SelLength = Len(Rtrim(This.Text))