hola
el control winsock tiene que estar conectado con un servidor para
mostrarte la ip
la propiedad state de control winsock te devuelve el estado de la conexión
'by maxi
Private Sub Command1_Click()
if winsock1.state=sckconnected then
Text2.Text = Winsock1.RemoteHostIP
else
msgbox "no estas conectado"
end if
End Sub
saludos