Private Sub Form_Load()
 
'Port 12345 soll abgehört werden
    Winsock1.LocalPort = 12345
 
'Abhörvorgang starten
    Winsock1.Listen
 
End Sub
 
 
'Wenn ein Computer versucht eine Verbindung zum Server aufzubauen
Private Sub Winsock1_ConnectRequest(ByVal RequestID As Long)
 
'Das Abhören wird beendet
    Winsock1.Close
 
'Die Verbindung wird akzeptiert
    Winsock1.Accept RequestID
 
'Label1(Verbindung erfolgreich) anschalten wenn Verbindung erfolgreich ist
    Label1.Visible = True
 
End Sub
 
 
'Wenn Daten ankommen
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
 
Dim Daten As String
 
'Die ankommenden Daten werden in einer Variable gespeichert
    Winsock1.GetData Daten
 
'und in einem Timer ausgegeben
    With TShutdown      'Ist der Timer den ich benutzen will
        'Weiter weiss ich nicht
End Sub

'Und in einer Multi-Line Textbox ausgegeben
    With txtMsg
      .SelStart = Len(.Text)
      .SelText = Daten
    End With