Dim s1 As String For Each s1 In SerialPort.GetPortNames() msgbox(s1) Next s1
For Each item As String In My.Computer.Ports.SerialPortNames Debug.Print(item) Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)