如何得到 OLEDragOver 和 OLEDragDrop 时，光标在TextBox中的位置？

Question

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Const EM_LINEFROMCHAR = &HC9
Const EM_LINEINDEX = &HBBPrivate Sub Text1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Label1.Caption = "前面有" & SendMessage(Text1.hwnd, EM_LINEINDEX, -1, 0) & "个字母,包括回车和换行"
Label2.Caption = "光标在" & SendMessage(Text1.hwnd, EM_LINEFROMCHAR, -1, 0) & "行"
End Sub

Answer 1

谢谢泰山。但该方法只能读取Text1.Mutiline时，Text1第N行（N>1）之前的字符数。不能取得当前行光标所在位置。