a ver si te puedo ayudar:
con este codigo, te envia el ip apenas el servidor se conecte a tu cliente
SERVIDOR:
en el evento CONNECT del Winsock pones
Dim IP as long
IP = winsock1.localip
winsock1.senddata IP
CLIENTE:
en el evento DATA ARRIVAL del Winsock pones
Dim IP as long
winsock1.getdata IP
text1.text = IP
ahi te mostraria el IP del servidor en el Text1
espero que te sirva
si tenes otra duda postea en el foro
o abajo de mi foto tenes mi msn xD
un abraz0