Доступ к TextBox чужого (не VB6) приложения

Формулировка задачи:

Здраствуйте! Из своей программы на VB6 я хочу добраться до содержимого TextBox другой программы. Для этого на форму своей программы я поместил элемент picPoint типа PictureBox. Я нажимаю мышку на этом picPoint, перемещаю в окно другой программы и отпускаю на TextBox. Тем самым я определяю его hWnd а затем и его содержимое (found_text):

                    Листинг программы
                
 
                        
                          
                    
Private Sub picPoint_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    PointMode = True
    dl& = SetCapture(Form1.hwnd)
End Sub
 
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single)
    Dim pt As POINTAPI
 
    If Not PointMode Then Exit Sub
    pt.x = x
    pt.y = y
    ClientToScreen Form1.hwnd, pt
    found_hWnd& = WindowFromPoint(pt.x, pt.y)
 
   count = GetWindowText(found_hWnd, buffer, 255)
   found_text = Left$(buffer, count)
End Sub

Это прекрасно работает, если TextBox в программе, созданной на VB6. Но если я нацеливаюсь мышкой к примеру на TextBox "мин", "сек" или "фрм" на вкладке "Файл/Предустановки/Общий" в Nero 6.3.1.15. то GetWindowText возвращает заголовок фрейма ("Панель состояния") в котором размещены вышеобозначенные TextBox. Возможно ли средствами VB6 получить доступ к содержимому TextBox в Nero? Спасибо.

Решение задачи: «Доступ к TextBox чужого (не VB6) приложения»

textual
                            Листинг программы 
                        
wnd = WindowFromPoint(pt.X, pt.Y) ' Get the window under mouse pointer
buff = Space$(50)
SendMessage wnd, &HD, 40, ByVal buff 'sending WM_GETTEXT message to that window
Label1.Caption = buff 'Now buff contains the text on the window , simply display