Private Function checkTextAreaMaxLength(ByVal , As textBox, ByVal , As e, ByVal Unknown As maxLength) As function
        If Not checkSpecialKeys(e) Then
            If (textBox.value.length  _
                        > (maxLength - 1)) Then
                If window.event Then
                    e.returnValue = false
                Else
                    e.preventDefault
                End If
            End If
        End If
        onBlurTextCounter(textBox, maxLength)
End Function
Private Function checkSpecialKeys(ByVal Unknown As e) As function
        If ((e.keyCode <> 8)  _
                    AndAlso ((e.keyCode <> 46)  _
                    AndAlso ((e.keyCode <> 37)  _
                    AndAlso ((e.keyCode <> 38)  _
                    AndAlso ((e.keyCode <> 39)  _
                    AndAlso (e.keyCode <> 40)))))) Then
            Return false
        Else
            Return true
        End If
End Function
Private Function onBlurTextCounter(ByVal , As textBox, ByVal Unknown As maxLength) As function
        If (textBox.value.length > maxLength) Then
            textBox.value = textBox.value.substr(0, maxLength)
        End If
End Function

ctype(Me.Controls("lyricsbox0"), TextBox).Lines.Length

MessageBox.Show(TextBox1.ClientRectangle.Height \ TextBox1.Font.Height)

MessageBox.Show((TextBox1.ClientRectangle.Height - 2) \ TextBox1.Font.Height)

* Split the text into lines.
* For each line:
    * If the wrapped line is taller than the remaining space:
        * Move to a new column.
    * Draw the line at the current position.
    * Move the current position beneath the line that was drawn.

    Public Enum SBorientation As Integer
        SB_HORZ = &H0
        SB_VERT = &H1
        SB_CTL = &H2
        SB_BOTH = &H3
    End Enum
    Public Declare Function GetScrollPos Lib "user32" (ByVal hWnd As IntPtr, ByVal nBar As SBorientation) As Long

    Public Sub Form_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
       textbox1.ScrollBars = ScrollBars.Horizontal          
       textbox1.WordWrap = False
       textbox2.ScrollBars = Scrollbars.Both
       textbox2.WordWrap = False
End Sub
Public sub splittext
            Dim fullvalue As Integer = full(textbox1.Lines.Length)
            If fullvalue = -1 Then
                exit sub
            Else
                Dim text As String = textbox1.Text
                Dim txtboxlen As Integer = textbox1.Text.Length
                Dim charsuntilline As Integer = CountCharsUntilLine(text, fullvalue)
                Dim charsleft As Integer = txtboxlen - charsuntilline
                textbox2.Text = Mid(text, charsuntilline + 1, charsleft - 1)
                textbox1.Text = Mid(text, 1, charsuntilline)
            End If
End sub
Private Function CountCharsUntilLine(ByVal input As String, ByVal stopline As Integer)
        Dim lenght As Integer = input.Length
        Dim i As Integer = 1
        Dim chars As Integer = 0
        Dim lines As Integer = 0
        Do While i <= lenght
            Dim temp As String = ""
            temp = Mid(input, i, 1)
            chars += 1
            If Asc(temp) = 13 Then
                lines += 1
            End If
            If lines = stopline Then
                i = lenght + 1
            End If
            i += 1
        Loop
        Return chars
    End Function
    Public Function full(ByVal lines As Integer)
        Dim temp As String = textbox1.Text
        textbox1.Text = ""
        textbox1.ScrollBars = ScrollBars.Vertical
        Dim orgscrollpos As Long = GetScrollPos(textbox1.Handle, SBorientation.SB_VERT)
        Dim n As Integer = 1
        Do While n <= lines
            textbox1.Text &= vbNewLine
            textbox1.SelectionStart = textbox1.Text.Length
            textbox1.ScrollToCaret()
            Dim scrollpos As Long = GetScrollPos(textbox1.Handle, SBorientation.SB_VERT)
            If scrollpos > orgscrollpos Then
                textbox1.Text = temp
                textbox1.ScrollBars = ScrollBars.Horizontal
                Return n - 1
                Exit Function
            End If
            n += 1
        Loop
        textbox1.Text = temp
        textbox1.ScrollBars = ScrollBars.Horizontal
        Return -1
    End Function