vb.net CodeImports System.IO.PortsImports System.TextPublic Class Form1
Dim RS232Com As New SerialPort
Dim mPortName As String
Public Sub OpenCOM()
mPortName = Me.CmbCom.SelectedItem.ToString
RS232Com = New SerialPort(mPortName, 9600, Parity.None, 8, StopBits.One)
RS232Com.Encoding