How to determine number of visible lines in a textbox?

Hi,

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

thanks a lot
Ruther

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

use this for a text box

Code:

---

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

Code:

---

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

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

---