Der Server...
 
Option Explicit
 
Private Sub Form_Load()
  ' Command1 deaktivieren
  Command1.Enabled = False
 
  ' Port 12345 soll abgehört werden
  Winsock1.LocalPort = 12345
 
  ' Abhör-Vorgang starten
  Winsock1.Listen
End Sub
' Wenn ein Computer versucht eine Verbindung mit dem
' Server aufzubauen
Private Sub Winsock1_ConnectionRequest( _
  ByVal requestID As Long)
 
  ' Das Abhören wird beendet
  Winsock1.Close
 
  ' Die Verbindung wird akzeptiert
  Winsock1.Accept requestID
 
  ' Command1 anschalten damit man die Nachricht
  ' senden kann
  Command1.Enabled = True
End Sub
' Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
 
  ' Die ankommenden Daten werden in einer Variable
  ' (strDaten) gespeichert
  Winsock1.GetData sData
 
  ' Und in einer MutliLine-TextBox ausgegeben
  With txtmsg
    .SelStart = Len(.Text)
    .SelText = sData
  End With
End Sub
Private Sub Command1_Click()
  ' Nachricht wird zum Client gesendet
  Winsock1.SendData "Hallo Client!"
End Sub
' Wenn die Verbindundung getrennt wird
Private Sub Winsock1_Close()
  ' Command1 ausschalten
  Command1.Enabled = False
End Sub
 
Der Client...
 
Option Explicit
 
Private Sub Form_Load()
  Dim ServerIP As String
 
  ' Command1 deaktivieren
  Command1.Enabled = False
 
  ' Die IP-Adresse oder Computer-Name des Servers
  ServerIP = "MyComputer"
 
  ' 1. Parameter: Computername /-ip
  ' 2. Parameter: Portnummer
  Winsock1.Connect ServerIP, 12345
End Sub
' Wenn eine direkte Verbindung aufgebaut ist
Private Sub Winsock1_Connect()
  ' Jezt können wir mit dem Button die Nachricht senden
  Command1.Enabled = True
End Sub
Private Sub Command1_Click()
  ' Nachricht an Server senden
  Winsock1.SendData "Hallo Server!"
End Sub
' Wenn die Verbindung geschlossen wird
Private Sub Winsock1_Close()
  ' Ohne Verbindung kann man auch keine
  ' Nachrichten senden: Button Aus
  Command1.Enabled = False
End Sub