Private
Sub
BtnFindSerialPort_Click(sender
As
System.
Object
, e
System.EventArgs)
Handles
BtnFindSerialPort.Click
For
Each
ports
In
My.Computer.Ports.SerialPortNames
MessageBox.Show(
"Serial port avialible"
&
" "
& ports)
Next
End