みなさま

私の説明が悪くてすみません。
環境について説明します。

・送信側
  マイコン+Xbee
・受信側 Xbee+PC

続いて今の状況ですが、
PCの所で、TeraTermを使用して送信側から送られてきているデータ('Q')を確認することができました。
まずは、この('Q')をvbで表示できるようにしたいです。

[今後行いたいこと]
送信側から10bitのデータをj送信し、受信側で1秒おきにデータを受信し、グラフ化（縦軸が10bitデータ、横軸は時間）したいと考えています。

単にデータだけの確認であれば、TeraTermから確認することができたのですが、
リアルタイムに受信データをグラフ化するところまで実現したいです。

今は、↓のプログラムで試していますが、
受信データを表示するTextBoxに何も表示されずに困っています。

    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        'Tickイベント (Timerプロパティで指定された間隔の時間が経過したときに発生するイベント)
        AddHandler Timer1.Tick, AddressOf Data_Check
    End Sub

    Private Sub Data_Check()
        If (SerialPort1.BytesToRead > 0) Then
            '入力バッファ内のラインフィード(行末）まで読み取ったデータをrdatで宣言

            Dim rdat As Integer = SerialPort1.ReadLine()
            TextBox2.Text = rdat


        End If
    End Sub