How to determine number of visible lines in a textbox?

[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