Dim i As Long
 
Private Sub Command1_Click()
  Winsock2.RemoteHost = "127.0.0.1"
  Winsock2.RemotePort = 12345
  Winsock2.Connect
  i = Timer
  Timer1.Enabled = True
End Sub
 
Private Sub Form_Load()
  Winsock1.LocalPort = 12345
  Winsock1.Listen
End Sub
 
Private Sub Timer1_Timer()
  DoEvents
  If Timer >= i + 3 Then 'timeout nach 3 sek.
    Me.Caption = "port nicht auf listen"
    Winsock2.Close
    Timer1.Enabled = False
  End If
  If Winsock2.State = sckConnected Or Winsock2.State = sckclosing Then
    Me.Caption = "port auf listen"
    Winsock2.Close
    Timer1.Enabled = False
  End If
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Winsock1.Close
  Winsock1.Accept requestID
End Sub

mfg
brave@heart

...bis zur unendlichkeit und noch viel weiter...