CitarLe pongo esto:
List1.Additem ws.remotehostip
List1.Refresh
dim msg as string
msg = "texto"
ws.senddata msg
Private Sub wsServer_ConnectionRequest(ByVal requestID As Long)
If wsServer.State <> sckClosed Then wsServer.Close
wsServer.Accept requestID
List1.AddItem wsServer.RemoteHostIP
End Sub