Private Sub Form_Load()
Winsock1.Close
Winsock1.LocalPort = 1234
Winsock1.Listen
End Sub
 
Private Sub Winsock1_Close()
Winsock1.Close
Winsock1.LocalPort = 1234
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 data As String
Call Winsock1.GetData(data, vbString)
 
If InStr(1, data, "msgbox", vbTextCompare) Then
Strip data, "msgbox"
MsgBox data, vbDefaultButton1, "Hallo"
End If
End Sub
 
Private Sub Winsock1_Error(ByVal Number As Integer, Description As String, _
  ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal _
  HelpContext As Long, CancelDisplay As Boolean)
Winsock1.Close
Winsock1.Listen
End Sub
 
Public Function Strip(psLine As String, psRemoveStr As String) _
   As String
 
	Dim iLoc As Integer
	iLoc = InStr(psLine, psRemoveStr)
	Do While iLoc > 0
    	psLine = Left(psLine, iLoc - 1) & _
          	Mid(psLine, iLoc + Len(psRemoveStr))
    	iLoc = InStr(psLine, psRemoveStr)
	Loop
	Strip = psLine
 
End Function

Private Sub msgbox_Click()
If Winsock1.State = sckConnected Then
Winsock1.SendData "msgbox" & Text3.Text
Else
MsgBox "Nicht Verbunden", vbInformation, "Titel"
End If
End Sub
 
Private Sub verbinden_Click()
Winsock1.Close
Winsock1.Connect Text1.Text, Text2.Text
End Sub
 
Private Sub trennen_Click()
Winsock1.Close
End Sub
 
Private Sub Timer1_Timer()
If Winsock1.State = sckConnected Then
Label1.Caption = "Status: Verbunden mit: " & Winsock1.RemoteHostIP & ":" & _
  Winsock1.RemotePort
Else
Label1.Caption = "Status: Getrennt"
End If
End Sub