Private Sub Form_Load()
 WS.RemoteHost = "192.168.11.10"
 WS.Protocol = sckUDPProtocol
 WS.LocalPort = 0
 WS.RemotePort = 260 'nehme ich mal an ;-)
End Sub
 
'Das hier geht doch glaube ich auch nur bei TCP, oder?
Private Sub WS_ConnectionRequest(ByVal requestID As Long)
 WS.Accept requestID
 List1.AddItem "req"
End Sub
 
Private Sub WS_DataArrival(ByVal bytesTotal As Long)
 Dim a As String
 WS.GetData a
 List1.AddItem a
End Sub