如何利用API函数得知TextBox中文字所有的行数？

*API函数声明Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As LongPublic Const EM_GETLINECOUNT = &HBA注释：在程序中调用LineCnt = SendMessage(ctl.hwnd, EM_GETLINECOUNT, 0, 0)注释：LineCnt即为此TextBox的行数。