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 Text1.Text & vbCrLf
End Sub
'***********************************************
 
' Wenn die Verbindundung getrennt wird
Private Sub Winsock1_Close()
  ' Command1 ausschalten
  Command1.Enabled = False
End Sub

'************************************************
Private Sub Form_Load()
  Dim ServerIP As String
   ' Command1 deaktivieren
  Command1.Enabled = False
   ' Die IP-Adresse oder Computer-Name des Servers
   ServerIP = "localhost"
  ' 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 Text1.Text & vbCrLf
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
'************************************************
' Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
Dim fields() As String
  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
'************************************************