serialport 容易的串口通信 的例子 求

serialport 简单的串口通信 的例子 求
   本人 ，，  刚刚开始学    求教
[解决办法]

    '触发接收事件
    Public Sub Sp_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
            Me.Invoke(New EventHandler(AddressOf Sp_Receiving))         '调用
    End Sub

    '接收数据
    Private Sub Sp_Receiving(ByVal sender As Object, ByVal e As EventArgs)
        Dim strIncoming As String
        Try
            If SerialPort1.BytesToRead > 0 Then
                'strIncoming = SerialPort1.ReadExisting.ToString '读取缓冲区中的数据
                   strIncoming = SerialPort1.ReadLine.ToString
                SerialPort1.DiscardInBuffer()
            End If
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
[解决办法]
我也是急需啊，大神们快来啊^_^