#Region " Public Functions/Subs "
    Public Function LocalIP() As String
        Dim h As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry( _
          System.Net.Dns.GetHostName)
        Return CType(h.AddressList.GetValue(0), Net.IPAddress).ToString
    End Function
    Public Function RemoteHostIP() As String
        Dim iEP As IPEndPoint = _Client.RemoteEndPoint
        Return iEP.Address.ToString
    End Function
#End Region
 
#Region " Send Overloads "
 
    Public Sub Send(ByVal Data As String)
        Dim sendBytes() As Byte = System.Text.Encoding.ASCII.GetBytes(Data)
        Me.Send(sendBytes)
    End Sub
    Public Sub Send(ByVal Data() As Byte)
        Select Case GetState
            Case WinsockStates.Closed
                'can't send - not connected
            Case WinsockStates.Listening
                'listening
            Case WinsockStates.Connected
                Try
                    'send the bytes that are passed
                    ReDim Preserve Data(UBound(Data) + 1)
                    Data(UBound(Data)) = 4
                    _Client.Send(Data)
                Catch ex As Exception
                    Me.Close()
                    ChangeState(WinsockStates.Error)
                    RaiseEvent HandleError(Me, ex.Message, ex.TargetSite.Name, _
                      ex.ToString)
                End Try
        End Select
    End Sub
    Public Sub Send(ByVal Data As Bitmap)
        Dim str As New System.IO.MemoryStream
        Data.Save(str, System.Drawing.Imaging.ImageFormat.Bmp)
        Dim sendBytes(str.Length - 1) As Byte
        str.Position = 0
        str.Read(sendBytes, 0, str.Length)
        Me.Send(sendBytes)
    End Sub
 
#End Region
 
#Region " GetData Overloads "
 
    Public Sub GetData(ByRef data As String)
        Dim byt() As Byte = Nothing
        GetData(byt)
        For i As Integer = 0 To UBound(byt)
            If byt(i) = 10 Then
                data &= vbLf
            Else
                data &= ChrW(byt(i))
            End If
        Next
    End Sub
    Public Sub GetData(ByRef bytes() As Byte)
        If _bufferCol.Count = 0 Then Throw New IndexOutOfRangeException( _
          "Nothing in buffer.")
        Dim byt() As Byte = Me._bufferCol.Item(1)
        _bufferCol.Remove(1)
        ReDim bytes(UBound(byt))
        byt.CopyTo(bytes, 0)
    End Sub
    Public Sub GetData(ByRef bitmap As Bitmap)
        Dim byt() As Byte = Nothing
        GetData(byt)
        Dim str As New System.IO.MemoryStream(byt, False)
        bitmap = bitmap.FromStream(str)
    End Sub
 
#End Region