vb6 Send text to any pal version

Method, if you ask the same question in two or more threads… Its likely all your questions will be ignored.
Autopilots example found here works fine.
Download a fresh version, and find this in the code.

Private Function getSubForm

Once you have found it, change it from Private to Public.
Works with all pal versions >9.3

Find the following line of code, and comment it out or remove it.

lRet = FindSubWindsWithwHnd

Find this function

Private Function SendTextHnd() As Long

Replace the code inside of that function with this code

Dim iHnd As Long

iHnd = getPalSubForm(WindowClass, Combo1.Text, SplitterClass, SplitterIndex)

SendTextHnd = ChatHnd(iHnd, SendTxtIndex)

In your module GetSubFormHnd, add this function to it.

    Public Function ChatHnd(ByVal hwnd As Long, ByVal lParam As Long) As Long

Dim retVal As Long

mTargetSubClass = "RichEdit20A"

mTargetSubClassIndex = lParam

IndexCount = 1

retVal = EnumChildWindows(hwnd, AddressOf EnumChildProc, lParam)

ChatHnd = mSubFormHnd

End Function

I edited my post above. Add the ChatHnd function to your module

many thanks string it worked well.furthermore how to read lastline in 9.6?