Vb串口接收不到数据 请大师们赐教

Question

'发送数据
Private Sub senddata_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles senddata.Click
Dim strincoming As String
Dim xx As String
Dim yy As String
Try
SerialPort1.Write(senddata.Text, 0, 4)
Threading.Thread.Sleep(1000)
If SerialPort1.BytesToRead > 0 Then
Threading.Thread.Sleep(100) '添加延时
strincoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据
SerialPort1.DiscardInBuffer()
RXbox.Text = strincoming

        End If

    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try
End Sub

程序如上 senddata为发送数据，RXbox为接收数据框 ，串口已经打开，用串口助手调试可发射和接收，自己编的程序senddata输入1 接收RXbox里面都是空的 ，请大师指教

Answer 1

SerialPort1的DataRecived事件没有写？收到数据的代码应该写在那个里面，google/msdn找个例子自己参考下。