สอบถามครับ ท่านใดพอช่วยได้บ้างครับ ผมต้องเพิ่มแก้ส่วนไหน
พอดีอยากดึงค่าอุณหภูมิเข้า VB.Net ผ่านทาง port usb ผลออกมาในภาพครับ
(ต้องการให้ผลออกมาตามค่าที่วัดอุณหภูมิได้ เช่น   36.5   ครับ) 

บัญชีของผมไม่สามารถส่งภาพได้ ยังไงดูตาม link นี้นะครับ
https://drive.google.com/file/d/1ZNCzIp45oJHb6bFDm87CssrWaORwPZPv/view?usp=sharing

ส่วน code ด้านล่างนี้ครับ /

===========================================

Public Class Form1
    '------------------------------------------------
    Dim myPort As Array
    Delegate Sub SetTextCallback(ByVal [text] As String)
    '------------------------------------------------
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        myPort = IO.Ports.SerialPort.GetPortNames()
        ComboBox1.Items.AddRange(myPort)
    End Sub
    Private Sub SerialPort1_DataReceived(ByVal sender As System.Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort1.DataReceived
        ReceivedText(SerialPort1.ReadExisting())
    End Sub
    Private Sub ReceivedText(ByVal [text] As String) 'input from ReadExisting
        If Me.RichTextBox1.InvokeRequired Then
            Dim x As New SetTextCallback(AddressOf ReceivedText)
            Me.Invoke(x, New Object() {(text)})
        Else
            Me.RichTextBox1.Text &= [text] 'append text
        End If
    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        SerialPort1.PortName = ComboBox1.Text
        SerialPort1.BaudRate = ComboBox2.Text
        SerialPort1.Open()
    End Sub
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        SerialPort1.Close()
    End Sub
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Me.Close()
    End Sub
End Class

===========================================