Visual basic Enter virtual in aplicatie.

Salut!

Vreau sa trimita Enter in IChat .....



Cand dai Enter in mod normal pe Ichat trimite mesajul, acest script executa SENDKEYS-urile virtuale dar la ENTER el vrea sa creeze linie noua in loc sa trimita mesajul din "TEdit".
Ce trebuie sa fac sa mearga ?

Acesta este codul sursa.


Private Sub CMDGETTEXT_Click()
Dim returnvalue

Dim sCaption As String * 256

Dim TApplication&, TFrmIntranetChatMain&, TPanel&, TEdit&

TApplication& = FindWindow("TApplication", vbNullString)

TFrmIntranetChatMain& = FindWindowEx(TApplication&, 0, "TFrmIntranetChatMain", "Intranet Chat")

TFrmIntranetChatMain& = FindWindowEx(TFrmIntranetChatMain&, 0, "TFrmIntranetChatMain", "Intranet Chat")

TPanel& = FindWindowEx(TFrmIntranetChatMain&, 0, "TPanel", "PanelMainToolbar")

TPanel& = FindWindowEx(TPanel&, 0, "TPanel", vbNullString)

TPanel& = FindWindowEx(TPanel&, 0, "TPanel", vbNullString)

TEdit& = FindWindowEx(TPanel&, 0, "TEdit", vbNullString)


Pause 0.4

returnvalue = PostMessage(TEdit&, WM_KEYDOWN, VK_RETURN, 0&)


End Sub

Inlocuieste PostMessage cu

TEdit.SetFocus();
keybd_event( VK_RETURN,0,0,0 );
keybd_event( VK_RETURN,0,KEYEVENTF_KEYUP,0);

"TEdit.SetFocus();"

Nu este in acelasi form .... TEdit este textbox-ul aplicatiei Ichat.

Nu ma ajuta nimeni ?
Cum pot sa fac SetFocus Virtual fara sa imi puna fereastra in fata,
cand este fereastra activa merge ENTER-ul.