>There's no built-in function to get the number of lines, but you can search
>through the .Text property and find each line.  They are separated by a CR
>(10) and a LF (13).  You can do something like this:

>count=0
>temp=text1.text
>do
>    i=instr(temp,vbCrLf)
>    if i=0 then exit do
>    count=count+1
>    temp=mid(temp,i+2)
>loop

>> Is it possible to get the number of lines and the find the new line
>> character between each line in a multiline textbox ?

>> Thanx.

>> Erik

>NumOfLines = SendMessage(Text1.hWnd, EM_GETLINECOUNT, 0, ByVal 0&)