使用API函数sendmessage，如何获得光标所在行和列？

Sub getcaretpos(byval TextHwnd&,LineNo&,ColNo&) 　注释：TextHwnd为TextBox的hWnd属性值，　　LineNo为所在行数，ColNo为列数dim I&,j&,k& 注释：获取起始位置到光标所在位置字节数　　　　　　　　　I=SendMessage(TextHwnd,&HB0&,0,0) j=I/2^16 注释：确定所在行　　　　　　LineNo=SendMessage(TextHwnd,&HC9&,j,0)+1 　　注释：确定所在列k=SendMessage(TextHwnd,&HBB&,-1,0)ColNo=j-k+1 End sub