selecting text in a textbox

When I click on a textbox created in a VB app, it behaves just like any other windows textbox.
How do I make it so that with one single-click on the textbox, the whole contents of the textbox are selected?
(This would be like the way the Address bar behaves in IE.)
All help gratefully received.
Thanks
Steve

Text1.SelStart = 0
Text1.SelLength = Len(Text1)

I know the code is perfectl fine but for some reason it doesn't work for me!
I use VB5 Enetrprize.

I mean, it does but not when I click on a command button...

Code:

---

Private Sub Command1_Click()

    Text1.SelStart = 0
    Text1.SelLength = Len(Text1.Text)
    Text1.SetFocus
   
End Sub

---

Thanks to all for your help
The selStart and selLength method works fine.
:):):):):)
Steve