Enviar:
dim Mensaje as String
Mensaje = Mensaje.Text & "||" & De.Text & "||" & EnviarColor.Text & "||" & Para.Text
Winsock1.SendData Mensaje
Recibir:
Dim Compuesto As String
Dim Separado() as string
Winsock1.GetData Compuesto
Separado()=Split(Compuesto,"||")
Colortxt.Text = Separado(3)
Activacion.Caption = Separado(4)
De.Caption = Separado(1)
MsgRecibido.Text = Separado(0)
Que hace esto?
Manda todos los datos en una sola cadena separada por los caracteres "||"
Digamos:
Hola soy un mensaje||eCode||Rojo||Brian
y split lo que hace es separar esa cadena buscando por los "||"
Dejandote mensajes asi (empiezan de 0 por una cuestion de arrays):
0 = Hola soy un mensaje
1 = eCode
2 = Rojo
3 = Brian
Por si no entendes algo:
http://www.elguille.info/vb/vb6/stringFunctions.htm#vb6_06