Select ALL code

[shabbs]

Try this

TextBox.SelStart = 0
TextBox.SelLength = Length(TextBox.Text)