VS 2008 rs232

---

Private Delegate Sub UpdateTextboxDelegate(ByVal myResponse As String)
..................
Private Sub SerialPort_DataReceived(ByVal sender As Object, ByVal e As System.IO.Ports.SerialDataReceivedEventArgs) Handles SerialPort.DataReceived
Dim myResponse As Byte = SerialPort.ReadByte()
UpdateTextbox(myResponse)
End Sub

Private Sub UpdateTextbox(ByVal myResponse As String)
If Me.txt_inc.InvokeRequired Then
Dim d As New UpdateTextboxDelegate(AddressOf UpdateTextbox)
Me.txt_inc.Invoke(d, New Object() {myResponse})
Else
txt_inc.Text = myResponse


Select Case SerialPort.ReadByte
Case 66 'B
lbl_spd.Text = SerialPort.ReadLine
Case 67 'C
lbl_bt_val.Text = SerialPort.ReadLine
Case 68 'D
lbl_iny_val.Text = SerialPort.ReadLine
Case 69 'E
lbl_ot_val.Text = SerialPort.ReadLine
Case 70 'F
lbl_eo.Text = SerialPort.ReadLine '- 1
Case 71 'G
lbl_wtQo_val.Text = SerialPort.ReadLine
Case 72 'H
lbl_bx_val.Text = SerialPort.ReadLine
Case 73 'I
lbl_rd_val.Text = SerialPort.ReadLine

Case 74 'J
lbl_so.Text = SerialPort.ReadLine
Case 75 'K
lbl_ia_val.Text = SerialPort.ReadLine
Case 77 'M
lbl_by_val.Text = SerialPort.ReadLine
Case 78 'N
lbl_inne.Text = SerialPort.ReadLine
End Select
End If
End Sub

---