My.Computer.Ports.SerialPortNames : SerialPort « Development « VB.Net Tutorial

1. VB.Net Tutorial
2. Development
3. SerialPort

Option Strict On

Imports System.Collections.ObjectModel

Public Module PortsTest
   Public Sub Main()
      Dim ports As ReadOnlyCollection(Of String) = _
      My.Computer.Ports.SerialPortNames
      For Each port As String In ports
         Console.WriteLine(port)
      Next
   End Sub
End Module

COM3