Private Sub Form_Load()
  With WSockServer(0)
    .Close
    .LocalPort = 1234
    .Listen ' hier sitzt die Markierung beim debuggen
  End With
End Sub

Option Explicit
 
 
Private Sub cmdConnect_Click()
  On Error Resume Next
  WSockClient.Connect txtconnectTo.Text, 1234
End Sub
 
Private Sub Form_Load()
  With WSockServer(0)
    .Close
    .LocalPort = 1234
    .Listen
  End With
End Sub
 
 
' Verbindungsanforderung
Private Sub WSockServer_ConnectionRequest(Index As Integer, _
  ByVal requestID As Long)
 
  Load WSockServer(1)
  WSockServer(1).LocalPort = 0
  WSockServer(1).Accept requestID
End Sub
 
' Daten werden empfangen
Private Sub WSockServer_DataArrival(Index As Integer, _
  ByVal bytesTotal As Long)
 
  Dim sNachricht As String
 
  WSockServer(1).GetData sNachricht
  lstChat.AddItem "Client: " & sNachricht
End Sub
 
' Winsock-Fehler (Empfangen)
Private Sub WSockServer_Error(Index As Integer, _
  ByVal Number As Integer, Description As String, _
  ByVal Scode As Long, ByVal Source As String, _
  ByVal HelpFile As String, ByVal HelpContext As Long, _
  CancelDisplay As Boolean)
 
  On Error Resume Next
  MsgBox "Fehler: " & Description
  CancelDisplay = True
End Sub
 
' Nachricht senden
Private Sub cmdSend_lick()
  WSockClient.SendData txtMessage.Text
  lstChat.AddItem "Server: " & txtMessage.Text
End Sub
 
' Winsock-Fehler (Senden)
Private Sub WSockClient_Error(ByVal Number As Integer, _
  Description As String, ByVal Scode As Long, _
  ByVal Source As String, ByVal HelpFile As String, _
  ByVal HelpContext As Long, CancelDisplay As Boolean)
 
  On Error Resume Next
  MsgBox "Fehler: " & Description
  CancelDisplay = True
End Sub

och menno...