Private Sub ReceiveCallBack(ByVal ar As IAsyncResult)
        Try
            Dim state As StateObject = CType(ar.AsyncState, StateObject)
            Dim bytesread As Integer = CmdSocket.EndReceive(ar)
            If bytesread > 0 Then
                Dim Bytes(bytesread - 1) As Byte
                state.Buffer.Copy(state.Buffer, Bytes, bytesread)
                RaiseEvent DataArrival(Bytes)
            End If
            CmdSocket.BeginReceive(state.Buffer, 0, state.BufferSize, _
              SocketFlags.None, AddressOf ReceiveCallBack, state)
        Catch ex As Exception
            eh.ShowException(ex)
        End Try
    End Sub