VB.NET中获取串口列表

Imports Microsoft.Win32

Private Sub GetComList()
        Dim keycom As RegistryKey = Registry.LocalMachine.OpenSubKey("Hardware""DeviceMap""SerialComm")
        Dim str As String
        If Not keycom Is Nothing Then
            Dim sSubKeys() As String = keycom.GetValueNames()
           cmbItem.clear()
            For Each str In sSubKeys
                Dim s As String = keycom.GetValue(str).ToString.Trim
                Me.cmbPLC.Items.Add(s)
               cmbitem.add(s)
            Next
         End If
End Sub