如何得到richtextbox的总行数？

Question

Msgbox SendMessage(RichTextBox1.hwnd,EM_GetLineCount,0,0)

Answer 1

不是吧，没人帮呀？
EM_GetLineCount是得到最大一行，设定到了那一行了吧UPUPUPUPUP
UP
up~~~

Answer 2

算了，自已动手，丰衣足食
Dim Ll As LongLl = SendMessage(RichTextBox1.hwnd, EM_LINESCROLL, 0, 0)
SendMessage RichTextBox1.hwnd, WM_VSCROLL, SB_LINEDOWN, 1
Ll = SendMessage(RichTextBox1.hwnd, EM_GETTHUMB, 0, 0)
MsgBox Ll
SendMessage RichTextBox1.hwnd, WM_VSCROLL, SB_TOP, 1
为什么没人帮我呀？谢谢楼上上..的朋友了