关于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))