Положение каретки не в текстовом редакторе

[dear]

Добрый день!
Есть окно программы верстки (QuarkXpress) (см вложение).
В нем находятся текстовые блоки объявлений
Как можно узнать положение каретки относительно экрана?
GetCarretPos не работает

[Atoman]

Сейчас под рукой нет VB6, только VB.NET, поэтому мой вариант на .NET.

Код: Выделить всё

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim caretpos As POINTAPI
        GetCaretPos(caretpos)
        ClientToScreen(GetFocus, caretpos)
        Label1.Text = caretpos.x.ToString
    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        CreateCaret(Me.Handle, Nothing, 2, 20)
        ShowCaret(Me.Handle)
    End Sub

[dear]

Ничего не получилось

Private Sub Form_Load()
SetWindowPos Me.Hwnd, HWND_TOPMOST, 0, 0, 0, 0, SWP_NOMOVE Or SWP_NOSIZE
End Sub

Private Sub Timer1_Timer()

Dim caretpos As POINTAPI
Dim sa As Long
Dim titlebar As String
Dim slength As Long
Dim MouseCoord As POINTAPI
Dim HandleCurWin As Long
Dim HandleCurClass As String
Dim CurClassName As String


GetCursorPos MouseCoord
HandleCurWin = WindowFromPoint(MouseCoord.Left, MouseCoord.Top)

titlebar = String$(256, " ")
slength = GetWindowText(HandleCurWin, titlebar, 255)
titlebar = Left$(titlebar, InStr(titlebar, vbNullChar) - 1)

CurClassName = String$(256, " ")
slength = GetClassNameA(HandleCurWin, CurClassName, 255)
CurClassName = Left$(CurClassName, InStr(CurClassName, vbNullChar) - 1)

GetCaretPos caretpos
ClientToScreen GetFocus, caretpos

Label1.Caption = HandleCurWin & vbCrLf & _
titlebar & " " & CurClassName & vbCrLf & _
caretpos.Left & " " & caretpos.Top

End Sub


В тексбоксе на форме исправно меняются координаты, то же самое в самом редакторе VB
При переходе даже в Word, координаты замирают и не двигаются при движении курсора
В чем ошибка?