Imports System
Imports System.IO.Ports
Imports System.Threading
 
 
Public Class frmMain
 
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
 
        ' Get a list of serial port names.
        Dim ports As String() = SerialPort.GetPortNames()
        ' Show a label with Action information on it
        lblComFound.Text = "The following serial ports were found:"
 
        ' Put each port name Into a comboBox control.
        Dim port As String
        For Each port In ports
            cmbo1.Items.Add(port)
 
        Next port
        ' Select the first item in the combo control
        cmbo1.SelectedIndex = 0
 
    End Sub
 
 
End Class