Part | Description | |
object | Required. A valid object. |
'Type SHIFT+ENTER to start a new line in the text box.
Private Sub CommandButton1_Click()
'Must first give TextBox1 the focus to get line count
TextBox1.SetFocus
Label1.Caption = "LineCount = " & TextBox1.LineCount
Label2.Caption = "TextLength = " & TextBox1.TextLength
End Sub
Private Sub UserForm_Initialize()
CommandButton1.WordWrap = True
CommandButton1.AutoSize = True
CommandButton1.Caption = "Get Counts"
Label1.Caption = "LineCount = "
Label2.Caption = "TextLength = "
TextBox1.MultiLine = True
TextBox1.WordWrap = True
TextBox1.Text = "Enter your text here."
End Sub