Seguir Ejecutando al Perder el Foco?

[TiITOo]

Buenas les cuento mi problema....

Estoy enviando datos a un textbox de un programa desde vb6 con la SendMessage

Aqui envio los datos
Call SendMessage(Aplicacion.hWnd, WM_SETTEXT, 0, ByVal CStr("Mi_Dato_a_Enviar"))

Luego Envio el enter para que lo que envie se procese por el otro programa
Call SendMessageBynum(Aplicacion.hWnd, WM_CHAR, 13, ByVal 0)

El problema esta que al enviar el Enter, pierdo el foco y se deja de ejecutar el codigo de VB6
no se ejecuta nada de lo que tengo por debajo de esta ultima instruccion

Les agradeceria que me den alguna idea.-
Gracias.-

[LeandroA]

Hola podrias probar con PostMessage, este no espera una respuesta tal como lo hace SendMessage

Código: [Seleccionar]

Private Declare Function PostMessage Lib "user32.dll" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long


Código: [Seleccionar]

Call PostMessage (Aplicacion.hWnd, WM_CHAR, 13, ByVal 0&)
Saludos.

[TiITOo]

Muchas Gracias LeandroA .... Me vino como anillo al dedo !
Funciona Perfecto !
Una vez mas gracias por tu tiempo !
Un Abrazo !