VB 6 Что делать если имеется два текстовых поля с одним названием класса ? TLabeledEdit

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

Имеется два текстовых поля у обоих одинаковый класс название TLabeledEdit Когда я вписываю текст в класс под названием TLabeledEdit то он вписывается только в один из них Вот часть этого кода

k = FindWindowEx(g, 0, TLabeledEdit, vbNullString) '
SendMessage k, &HC, 0, ByVal "Привет!"

Код работает но текст помещается в одно нижнее поле с названием TLabeledEdit а как вписать в первое не пойму ведь у него то же самое название класса TLabeledEdit различаются лишь они хендлами я попытался указать вместо класса Хендл но так вообще не реагирует почему ? Надеюсь на помощь

k = FindWindowEx(g, 0, 004002DA, vbNullString) '
SendMessage k, &HC, 0, ByVal "Привет!"

И так

k = FindWindowEx(g, 0, &004002DA, vbNullString) '
SendMessage k, &HC, 0, ByVal "Привет!"

Но ничего Спасибо надеюсь на помощь

Решение задачи: «VB 6 Что делать если имеется два текстовых поля с одним названием класса ? TLabeledEdit»

textual
                            Листинг программы 
                        

                            Option Explicit
 
Private Declare Function FindWindowExA Lib "user32" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As String, ByVal lpWindowName As String) As Long
Private Declare Function FindWindowExW Lib "user32" (ByVal hWndParent As Long, ByVal hWndChildAfter As Long, ByVal lpClassName As Long, ByVal lpWindowName As Long) As Long
 
Private Sub Form_Load()
    FindWindowExA 0, 0, vbNullString, vbNullString
    FindWindowExW 0, 0, 0, 0
End Sub
                        