SendData en visual basic

[Javierillo]

He empezado a programar una aplicacion tcp/ip con winsocks,y he conseguido enviar y recibir datos,que se reciben en un txt,pero ahora necesito que pulsando un boton se envien los datos a text1,y a la vez se envien otros a text2.
He puesto este codigo en la aplicacion que envia los datos

Private Sub Command1_Click()
Dim entexto1 As String
entexto1 = "texto en texto1"
Winsock1.SendData entexto1
Dim entexto2 As String
entexto2 = "texto en texto2"
Winsock1.SendData entexto2
End Sub

Y esto otro en la aplicacion que lo recibe

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim entexto1 As String
Winsock1.GetData entexto1
Text1 = entexto1
Dim entexto2 As String
Winsock1.GetData entexto2
Text2 = entexto2

Pero no funciona,lo que ocurre es que en text1 sale texto en texto1texto en texto2
Que tengo que hacer para que funcione???
He pensado en 2 winsoks,pero entonces tendria que conectar los dos,y no se si funcionara...
Alguien puede ayudarme?
Gracias

[shaggikpo]

Iniciado por Javierillo

Private Sub Command1_Click()
Dim entexto1 As String
entexto1 = "texto en texto1"
Winsock1.SendData entexto1
Dim entexto2 As String
entexto2 = "texto en texto2"
Winsock1.SendData entexto2
End Sub

Y esto otro en la aplicacion que lo recibe

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim entexto1 As String
Winsock1.GetData entexto1
Text1 = entexto1
Dim entexto2 As String
Winsock1.GetData entexto2
Text2 = entexto2

tu problema es simple cuando estabelces la coneion envias los datos y luego los recibe ty los deposita en la variable entexto 1 esto se debe a que envias los datos del text1 y dos ujuntos es decir uno tras otro y al recibirlos seb depositan en la variable entexto1 lo que debes hace es poner u8na condicional en el dataarival
esta condicional la mandas para distingir que textbos es el que envia el texto y asi decidir quien lon recibe, si son 2 textbox podrias usar un IF pero si son mas te recomiendo usar la funcion select case