/// <summary>
/// Show received data.
/// </summary>
/// <param name="sender"></param>
/// <param name="Data"></param>
/// <param name="SenderInfo"></param>         
private void gxNet1_OnReceived(object sender, byte[] Data, string SenderInfo)
{
    try
    {
        //Echo received text.
        if (EchoCB.Checked)
        {
            gxNet1.Send(Data, Gurux.Common.VariantType.None, SenderInfo);
            ReceivedText.Text = "";
        }

        //We receive byte array from GXNet and this must be changed to chars.
        if (HexCB.Checked)
        {
            ++cnt;
            ReceivedText.Text = cnt.ToString(); 
        }
        else
        {
            //Get received data as string.
            ReceivedText.Text += System.Text.Encoding.ASCII.GetString(Data);
        }

    }
    catch (Exception Ex)
    {
        ErrorList.Items.Add(Ex.Message);
    }
}

                ''' <summary>
''' Show received data.
''' </summary>
Private Sub GxNet1_OnReceived(ByVal sender As System.Object, ByVal Data() As System.Byte, ByVal SenderInfo As System.String) Handles GxNet1.OnReceived
    Try
        'Echo received text.
        If EchoCB.CheckState = 1 Then
            GxNet1.Send(Data, Gurux.Common.VariantType.None, SenderInfo)
            ReceivedText.Text = ""
        End If
        'We receive byte array from GXNet and this must be changed to chars.
        If (HexCB.Checked) Then
            ReceivedText.Text += BitConverter.ToString(Data)
        Else
            'Get received data as string.
            ReceivedText.Text += System.Text.Encoding.ASCII.GetString(Data)
        End If
    Catch Ex As Exception
        MessageBox.Show(Ex.Message)
    End Try
End Sub

                'New data from GXNet is received
Private Sub GXNet1_OnReceived(ByVal sender As Object, Data As Variant, ByVal SenderInfo As String)
On Error GoTo GXErr
    'Echo received text.
    If EchoCB.Value = 1 Then
        GXNet1.Send Data, GX_VT_NONE, SenderInfo
        ReceivedText.Text = ""
    End If

    'We receive byte array from GXNet and this must be changed to chars.
    Dim pos, ch As String
    For pos = 0 To UBound(Data)
        'Is data shown as hex or string.
        If HexCB.Value = 1 Then
            'SHow as hex
            ReceivedText.Text = ReceivedText.Text & Hex(Data(pos)) & " "
        Else
            'Convert byte to chr
            ch = Chr(Data(pos))
            ReceivedText.Text = ReceivedText.Text + ch
        End If
    Next
    Exit Sub
GXErr:
    MsgBox Err.Description
End Sub