<DescriptionAttribute("Connect to a server.")>
Public Overloads Sub Connect( _
   ByVal server As String, _
   ByVal serverPort As Integer _
) 

Dim instance As Tcp
Dim server As String
Dim serverPort As Integer
 
instance.Connect(server, serverPort)

[DescriptionAttribute("Connect to a server.")]
public void Connect( 
   string server,
   int serverPort
)

[DescriptionAttribute("Connect to a server.")]
public: void Connect( 
   string* server,
   int serverPort
) 

[DescriptionAttribute("Connect to a server.")]
public:
void Connect( 
   String^ server,
   int serverPort
) 

Private Sub TcpDemo()
   ' The following code assumes that good responses are always received from
   ' the server. More robust code should check each response and handle appropriately.

   ' Connect to Echo Server
   Tcp1.Connect("myEchoServer", 7)

   ' Send some data
   Tcp1.Send("Hello Server!" + vbCrLf)

   ' Get response from the server
   Dim seg As Segment = Tcp1.Receive()
   Debug.WriteLine(seg.ToString())

   ' Send more data
   Tcp1.Send("You are a swell host" + vbCrLf)

   ' Get response from the server
   seg = Tcp1.Receive()
   Debug.WriteLine(seg.ToString())
   
   'Close the connection
   Tcp1.Close()
End Sub

private void TcpDemo()
{
   // The following code assumes that good responses are always received from
   // the server. More robust code should check each response and handle appropriately.

   // Connect to Echo Server
   tcp1.Connect("myEchoServer", 7);

   // Send some data
   tcp1.Send("Hello Server!\r\n");

   // Get response from the server
   Segment seg = tcp1.Receive();
   Debug.WriteLine(seg.ToString());

   // Send more data
   tcp1.Send("You are a swell host\r\n");

   // Get response from the server
   seg = tcp1.Receive();
   Debug.WriteLine(seg.ToString());
   
   //Close the connection
   tcp1.Close();
}