Resolved - Select all on focus

[santosh66]

I need to select all (highlight) in a textbox when it is on focus, so that new value replaces the existing value if changed.
basically I am looking for double click effect during on focus event.
if it is not changed and out of focus, the original shall remain as it is.
any help pl.

[brucevde]

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

[santosh66]

thank you, brucevde