Visual Basic RichTextBox Maksimum Line

[ein und zwanzig]

RichTextBox ta line sayısını sınırlamak istiyorum. Max.Length i kullandım ancak enter tuşu sorun çıkartıyor.Enter a basınca o satırın geri kalanı length dışında kalıyor bu yüzden de box aşağıya doğru uzuyor ve line sayısı artıyor. Line ı sınırlayacak bir komut ya da fonksiyon bilen var mı?
Şimdiden teşekkürler...

 

[kolay]

Option Explicit
Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" _
        (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const EM_GETLINECOUNT = &HBA

Private Sub RichTextBox1_Change()

    Const MAX_LINES = 3 'satır sayısı yaz
    Dim lngCount As Long
    Dim lngLength As Long
    Dim strBuffer As String
    Static strSaveText As String
    
    lngCount = SendMessage(RichTextBox1.hwnd, EM_GETLINECOUNT, 0, 0)
    
    If lngCount = MAX_LINES + 1 Then
        With RichTextBox1
            .Text = strSaveText
            MsgBox "satır sayısı sınırlı!!!azaltın!"
        End With
    End If
    
    strSaveText = RichTextBox1.Text

End Sub

Sanırım işinizi görür.