ho aggiunto questo pezzettino di codice...ma nulla...

codice:
Do Until Winsocket1.State = sckConnected 
        DoEvents
    Loop