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