Private Sub WS_DataArrival(sender As Winsock, BytesTotal As Long) Handles _
  WS.DataArrival
Dim Empfang As String = ""
WS.GetData(Empfang)
Msgbox(Empfang)
End Sub
 
Private Sub WS_ConnectionRequest(sender As Winsock, requestID As Socket) _
  Handles WS.ConnectionRequest
WS.Accept(requestID)
End Sub
 
Private Sub WS_Connected(sender As Winsock) Handles WS.Connected
Msgbox ("Verbunden")
End Sub
 
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles _
  Button1.Click
WS.SendData("Hallo")
End Sub
 
Private Sub Ws_HandleError(sender As Winsock, ErrNumber As Integer, Description _
  As String)
MsgBox("Der Server ist derzeit nicht erreichbar!" & vbNewLine & "Bitte warten" & _
"Sie bis der Server Online gegangen ist, oder wenn der Server Online ist," & _
"Überprüfen Sie die Verbindung!", CType(48, MsgBoxStyle), _
Application.ProductName)
End Sub