Private Sub Form_Load()
  Winsock1(0).LocalPort = 1545
  Winsock1(0).Listen
End Sub
 
Private Sub Winsock1_ConnectionRequest(Index As Integer, ByVal requestID As _
  Long)
  Debug.Print "New Winsock: " & Winsock1.UBound + 1
  Load Winsock1(Winsock1.UBound + 1)
  With Winsock1(Winsock1.UBound)
    .Accept requestID
  End With
End Sub
 
Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
  Dim strcontent As String
  If Index > 0 Then
    Winsock1(Index).PeekData strcontent, , bytesTotal
    Winsock1(Index).Close
    Debug.Print "Close Winsock: " & Index
    Unload Winsock1(Index)
    MsgBox strcontent
  End If
  Winsock1(Index).GetData (sdata)
  If sdata = ("test") Then
  Label1.Caption = ("aktiv")
  Else
  Label1.Caption = ("")
  End If
End Sub