Как определить полную позицию курсора в TextBox

[RayShade]

Private Function CursorPosition(Text As TextBox, Param As Byte)



'********************************************************

'Если param=0 - функция возвращает позицию курсора в строке

'Если param=1 - функция возвращает номер строки, в которой находится курсор

'********************************************************



Dim i As Integer 'переменная для цикла

Dim j As Integer 'счётчик строк

Dim Cursor As Integer 'относительная позиция курсора



Cursor = Text.SelStart + Text1.SelLength



For i = 1 To Cursor

If Mid(Text, i, 1) = Chr(13) Then j = j + 1

Next i



If Param = 0 Then

CursorPosition = Cursor - InStrRev(Mid(Text, 1, Cursor), Chr(13))

If j = 0 Then CursorPosition = CursorPosition + 1

Else

CursorPosition = j + 1

End If



End Function