<BrowsableAttribute(False)>
<DescriptionAttribute("Returns true when an active connection exists.")>
Public ReadOnly Property Connected As Boolean

Dim instance As Tcp
Dim value As Boolean
 
value = instance.Connected

[BrowsableAttribute(false)]
[DescriptionAttribute("Returns true when an active connection exists.")]
public bool Connected {get;}

[BrowsableAttribute(false)]
[DescriptionAttribute("Returns true when an active connection exists.")]
public: __property bool get_Connected();

[BrowsableAttribute(false)]
[DescriptionAttribute("Returns true when an active connection exists.")]
public:
property bool Connected {
   bool get();
}

Private Sub StartServer()
   ' Begin listening for connections on port 7.
   Server1.Listen(7)
End Sub

Private Sub Server1_Connection(ByVal sender As Object, ByVal e As ConnectionEventArgs) Handles Server1.Connection
   ' This event is raised on a new thread when a connection is received.
   Try
      ' Keep receiving data until connection is closed
      Do While (e.Tcp.Connected)
         ' Receive data.
         Dim seg As Segment = e.Tcp.Receive()

         ' Echo data back to client
         e.Tcp.Send(seg.ToString())
      Loop
   Catch ex As Exception
      'eat exception  
   End Try
End Sub

private void StartServer()
{
   // Begin listening for connections on port 7.
   server1.Listen(7);
}

private void server1_Connection(object sender, ConnectionEventArgs e)
{
   // This event is raised on a new thread when a connection is received.
   try
   {
      // Keep receiving data until connection is closed
      while(e.Tcp.Connected)
      {
         // Receive data.
         Segment seg = e.Tcp.Receive();

         // Echo data back to client.
         e.Tcp.Send(seg.ToString());
      }
   }
   catch(Exception ex)
   {
      // eat any exceptions
   }
}