VB.NET 串口连接，控件利用AxMSComm

    Private   Sub AxMSComm1_OnComm() Sub AxMSComm1_OnComm(ByVal sender As Object, ByVal e As System.EventArgs) Handles AxMSComm1.OnComm
        Dim strIn As String
        Dim I As Integer
        For I = 0 To AxMSComm1.InBufferCount
            strIn = Me.AxMSComm1.Input
            Me.TextBox2.Text = Me.TextBox2.Text + strIn
        Next
        TextBox2.Text = Replace(Me.TextBox2.Text, Chr(7) & Chr(13) & Chr(10), "" & Chr(13) & Chr(10))
        TextBox2.SelectionStart = TextBox2.Text.Length
        TextBox2.ScrollToCaret()

        TextBox2.Refresh()
        Application.DoEvents()
    End Sub

     Private   Sub Form4_Load() Sub Form4_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Try
            AxMSComm1.RThreshold = 1
            AxMSComm1.RTSEnable = True
            AxMSComm1.SThreshold = 0
            AxMSComm1.InputLen = 1
            AxMSComm1.InBufferSize = 4096
            If Me.AxMSComm1.PortOpen = True Then Me.AxMSComm1.PortOpen = False
            AxMSComm1.PortOpen = True
            AxMSComm1.Output = "" & Chr(13)
        Catch
            MsgBox("串口操作失败", MsgBoxStyle.Critical)
        End Try
    End Sub
     Private   Sub Button4_Click() Sub Button4_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button4.Click
        Dim command_str_enter = Chr(13)
        AxMSComm1.Output = Me.TextBox1.Text + command_str_enter
        If Me.TextBox1.Text = "sh sys" Then AxMSComm1.Output = " "
    End Sub