Imports System.Management 'Vorher: Projekt/Verweis 
' hinzufügen/.Net/System.Management
Public Class Form1
    Dim Lb As New ListBox With {.Dock = DockStyle.Fill, .Parent = Me}
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Dim mos As New Management.ManagementObjectSearcher("Select * from" & _
        "Win32_PnPEntity")
        Dim moc As Management.ManagementObjectCollection = mos.Get
        For Each mo As Management.ManagementObject In moc
            If mo.Properties.Item("Name").Value.ToString.Contains("COM") Then
                Lb.Items.Add(mo.Properties.Item("Name").Value.ToString)
            End If
        Next
    End Sub
End Class