Part | Description | |
object | Required. A valid object. | |
Long | Optional. Specifies the current line of a control. |
Private Sub TextBox1_KeyUp(ByVal KeyCode As MSForms.ReturnInteger, _
ByVal Shift As Integer)
TextBox2.Text = TextBox1.CurLine
TextBox3.Text = TextBox1.CurX
TextBox4.Text = TextBox1.CurTargetX
End Sub
Private Sub UserForm_Initialize()
TextBox1.MultiLine = True
TextBox1.Text = "Type your text here. User CTRL + ENTER to start a new line."
End Sub