Visual Basic 6 - Client/Server

Buonasera,
volevo chiedere come posso verificare che la connessione client/server sia avvenuta, magari con una label che mi dica: Disconnesso, Connettendo, Connesso. Spero si sia capito .
Poi volevo chiedere come mai funziona tutto perfettamente solo in locale, e su indirizzi esterni non si connette? Grazie mille delle risposte.

clicca due volte sul componente winsock, bene nella sub winsock1_error(...)
metti:

if err.description <> "" then
label1.caption = "Error: " & err.description
end if

nella sub winsock1_connect metti:

label1.caption = "connesso"

non si connette agli altri o perchè sbagli tu o perchè hanno un router