How can I get the position of cursor in then text box?

[fishworld2006]

I import the lib dzHw,and use function SendMessageToControl.

'get the position of cursor
Sub GetCurLine(txtboxname)
linechar = hdObj.SendMessageToControl(txtboxname, EM_LINEINDEX, -1, 0)
curline = hdObj.SendMessageToControl(txtboxname, EM_LINEFROMCHAR, linechar, 0)
linefirstno = hdObj.SendMessageToControl(txtboxname,EM_GETFIRSTVISIBLELINE,0,0)
Msgbox(curline & "+" & linefirstno,"Tips")
End Sub

When debug, an error ocurred."System.OverflowException"
"linechar = hdObj.SendMessageToControl(txtboxname, EM_LINEINDEX, -1, 0)"
Error Description: value -1 Uint32 too big or small??

How can I do? Tks

 

[Erel]

txtboxname.SelectionStart will return the position of the cursor.

 

[fishworld2006]

Tks erel.
But when text wordwraped ,value returned from txtboxname.SelectionStart isn't the visible position.

 

[Erel]

txtBoxName.SelectionStart returns the cursor position.
Are you looking for something else?

 

[fishworld2006]

txtBoxName.SelectionStart returns the cursor position.
Are you looking for something else?

value of txtBoxName.SelectionStart is the position from first char of txtBoxName.text, I'd like to get cursor position of visible lines in the textbox .