How to highlight?

How do I make the contents of a textbox highlight when I tab though my program?

Thanks Scott

Code:

---

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

---

Thank you works great!
scott