Bueh.. como te dije, puedes jugar con un conjunto de caracteres que identifiquen a esa cadena que has enviado, por ejemplo:
para el caso de cuando envias hola el entra en su bloque respectivo, pero si luego quieres enviar otro tipo de saludo, que harás? un case por cada saludo? si envias: {sdo:hola} y luego en el server extraes los caracteres antes de los dos puntos, al pasarle "sdo" al case, ya sabes que es un saludo y muestras como saludo (valga la redundancia) lo que has enviado luego de los dos puntos, entiendes?
entendí a la perfección.. muchisimas gracias
Para el que no haya entendido se puede hacer así:
en el data arrival
Dim info As String
Winsock1.GetData info
info = Replace(info, "@", vbNewLine)
text1.text = info
y en el cliente
Winsock1.SendData variable & "@"