How To Select All Text in a Field When It Gets the Focus

MORE INFORMATION

Step-by-Step Example

1. Start Visual Basic, or, if it is already running, click New Project from the File menu.
2. Place two Text Boxes on the Form1 form with the default settings.
3. Copy and paste the following code to the Form1 Code Window:

         Private Sub Text1_GotFocus()
           Call SelectMe(Me.ActiveControl)
         End Sub
   
         Private Sub Text2_GotFocus()
           Call SelectMe(Me.ActiveControl)
         End Sub
   
         Private Sub SelectMe(This As TextBox)
           This.SelStart = 0
           This.SelLength = Len(This.Text)
         End Sub
   
   						

4. Press the F5 key to run the project, or click Run Project from the Tools menu.