[VB] Winsock in un ciclo

[vonkranz]

...oppure una cosa del genere....

      With Winsock1
         DoEvents
         .Protocol = sckTCPProtocol
         .Connect wsTCPIP$, Val(wsPorta$)
         DoEvents
         If .State <> sckConnected Then
            .Connect wsTCPIP$, Val(wsPorta$)
            tempo! = Timer
            Do While .State <> sckHostResolved
               DoEvents
               If Abs(Timer - tempo!) >= 10 Then Exit Do
            Loop
            'Magari ne basta uno solo, pero' x quello che costa..
            DoEvents
            DoEvents
            DoEvents
            DoEvents
            If .State <> sckConnected Then
               msgbox "Ma che CA##O di IP Hai messo?",vbCritical + vbOKOnly,"PORCA PUPAZZA!"
            End If
         End If
      End With

...con questo pezzo di prg, sono riuscito ad attendenre che winsock si connettesse..... sempre senza fischiettare...