How to determine number of visible lines in a textbox?

[ruther]

Hi,

Can anyone tell me how to determine how many lines are visible inside a textbox ?

thanks a lot
Ruther

[Quizzzzz]

I dont know what text will appear in the textbox, but you might count the enter -signs

[Yash_Kumar]

use this for a text box

Public Function NumberOfLines(TextBox As TextBox) As Integer
Dim sLines() As String

sLines() = Split(TextBox.Text, vbCrLf)
NumberOfLines = UBound(sLines)
End Function

and this for a Rich text Box

Public Function NumberOfLines(TextBox As RichTextBox) As Integer
Dim sLines() As String

sLines() = Split(TextBox.Text, vbCrLf)
NumberOfLines = UBound(sLines)
End Function