TextBox Control, AutoSize, Text Properties Example

The following example demonstrates the effects of the AutoSize property with a single-line TextBox and a multiline TextBox. The user can enter text into either TextBox and turn AutoSize on or off independently of the contents of the TextBox. This code sample also uses the Text property.

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

• Two TextBox controls named TextBox1 and TextBox2.
  
  
• A ToggleButton named ToggleButton1.

Private Sub UserForm_Initialize()
    TextBox1.Text = "Single-line TextBox. " _
        & "Type your text here."
    
    TextBox2.MultiLine = True
    TextBox2.Text = "Multi-line TextBox. Type " _
        & "your text here. Use CTRL+ENTER to start " _
        & "a new line."
    
    ToggleButton1.Value = True
    ToggleButton1.Caption = "AutoSize On"
    TextBox1.AutoSize = True
    TextBox2.AutoSize = True
End Sub

Private Sub ToggleButton1_Click()
    If ToggleButton1.Value = True Then
        ToggleButton1.Caption = "AutoSize On"
        TextBox1.AutoSize = True
        TextBox2.AutoSize = True
    Else
        ToggleButton1.Caption = "AutoSize Off"
        TextBox1.AutoSize = False
        TextBox2.AutoSize = False
    End If
End Sub