Private Sub cmdLoeschen_Click()
    txtOutput.Text = ""
End Sub
 
Private Sub Form_Load()
    Winsock1.LocalPort = "34"
    Winsock1.Listen
 
End Sub
 
Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
  Winsock1.Close
  Winsock1.Accept requestID
End Sub
 
Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long)
  Dim sData As String
 
  Winsock1.GetData sData
  txtOutput.Text = txtOutput.Text & sData & vbNewLine & vbNewLine
End Sub

Dim ServerIP As String
Dim ServerPort As String
 
 
Private Sub cmdConnect_Click()
    wsckClient.RemoteHost = ServerIP
    wsckClient.RemotePort = ServerPort
    wsckClient.Connect
End Sub
 
Private Sub cmdDisconnect_Click()
    wsckClient.Close
End Sub
 
Private Sub cmdSenden_Click()
 
    wsckClient.SendData txtInput.Text
End Sub
 
Private Sub Form_Load()
    ServerIP = "localhost"
    ServerPort = "34"
End Sub

Gru?
SirSkydancer