Viejo... sos inentendible... te respondo segun lo que entendi...
si queres que cierta parte de tu codigo se ejecute en el evento DataArrival del winsock respectivo...
Para empezar, no importa que formulario tengas visible en ese momento (si estas en el form3 o form1), ahora, si importa que form1 este cargado con el socket abierto y conectado a su anfitrion.
Esta es la solucion que propongo para el problema que tenes (segun mi parecer)...
En
Private Sub Winsock1_DataArrival(bla as bla) as bla
'aqui va tu codigo, cierto?
'en vez de colocar el codigo completo aqui, propongo que lo cortes y te lo lleves a un modulo publico declarado como funcion o subrrutina, o, es su defecto, a tu form3 como funcion o subrrutina publica. entonces, seria algo asi (suponiendo que la funcion no recibe ni devuelve argumentos)...
FuncionDeTuViejoCodigo 'si esta en un modulo
form3.FuncionDeTuViejoCodigo 'si esta en el form3
end sub
Esto se va a ejecutar siempre que el form1 este cargado y con el control en estado 7 y recibas un dato. Asi, tenes la posibilidad de controlar el proceso desde un formalario <> form1.
Si lo que queres es guardar lo datos (integer, string por ej.) podes hacerlo cargandolo en una variable o guardalo directamente en tu dispositivo preferido. Si recibis datos de tipo binary recomiendo que armes los paquetes para evitar corrupciones, olvidate aqui de las variables automaticas o globales.
si queres que cierta parte de tu codigo se ejecute en el evento DataArrival del winsock respectivo...
Para empezar, no importa que formulario tengas visible en ese momento (si estas en el form3 o form1), ahora, si importa que form1 este cargado con el socket abierto y conectado a su anfitrion.
Esta es la solucion que propongo para el problema que tenes (segun mi parecer)...
En
Private Sub Winsock1_DataArrival(bla as bla) as bla
'aqui va tu codigo, cierto?
'en vez de colocar el codigo completo aqui, propongo que lo cortes y te lo lleves a un modulo publico declarado como funcion o subrrutina, o, es su defecto, a tu form3 como funcion o subrrutina publica. entonces, seria algo asi (suponiendo que la funcion no recibe ni devuelve argumentos)...
FuncionDeTuViejoCodigo 'si esta en un modulo
form3.FuncionDeTuViejoCodigo 'si esta en el form3
end sub
Esto se va a ejecutar siempre que el form1 este cargado y con el control en estado 7 y recibas un dato. Asi, tenes la posibilidad de controlar el proceso desde un formalario <> form1.
Si lo que queres es guardar lo datos (integer, string por ej.) podes hacerlo cargandolo en una variable o guardalo directamente en tu dispositivo preferido. Si recibis datos de tipo binary recomiendo que armes los paquetes para evitar corrupciones, olvidate aqui de las variables automaticas o globales.