Zeilen in Textbox beschränken

[toni]

Hallo zusammen,

ich möchte in einem Textfield die max. Anzahl an einzugebenden Zeilen auf fünf beschränken.
In VBA habe ich das folgendermaßen gelöst:

Code: Alles auswählen

Private Sub txtFreitextRind_Change()
   If txtFreitextRind.LineCount > 5 Then
       txtFreitextRind = Left(txtFreitextRind, Len(txtFreitextRind) - 1)
   End If
End Sub

Gibt es eine Eigenschaft wie .LineCount auch in Starbasic?

Gruß

Thomas