Enabled, EnterFieldBehavior, SelLength, SelStart, SelText Properties Example

The following example tracks the selection-related properties (SelLength, SelStart, and SelText) that change as the user moves the insertion point and extends the selection using the keyboard. This example also uses the Enabled and EnterFieldBehavior properties.

To use this example, copy this sample code to the Declarations portion of a form. Make sure that the form contains:

• One large TextBox named TextBox1.
  
  
• Three TextBox controls in a column named TextBox2 through TextBox4.

Private Sub TextBox1_KeyUp(ByVal KeyCode As _
    MSForms.ReturnInteger, ByVal Shift As Integer)
    TextBox2.Text = TextBox1.SelStart
    TextBox3.Text = TextBox1.SelLength
    TextBox4.Text = TextBox1.SelText
End Sub

Private Sub UserForm_Initialize()
    TextBox1.MultiLine = True
    TextBox1.EnterFieldBehavior = _
        fmEnterFieldBehaviorRecallSelection
    
    TextBox1.Text = "Type your text here. Use " _
        & "CTRL+ENTER to start a new line."
End Sub