Obj1.New1(False)
server.Start
client.New1
client.Value = server.Accept
Obj1.FromLibrary("client", "client", B4PObject(2)) ' get the .NET TcpClient
' this is the way to check you've got the object you want
Msgbox(Obj1.RunMethod("ToString"))
Obj1.Value = Obj1.GetProperty("Client") ' get the .NET Socket
Obj1.Value = Obj1.GetProperty("RemoteEndPoint") ' get the .NET RemoteEndPoint
Obj1.Value = Obj1.GetProperty("Address") ' get the remote .NET IPAddress
address = Obj1.RunMethod("ToString") ' get the dotted quad address