用什么方法可以检测到Pc的串口号

我现在装了个双串口卡，我在我的电脑属性里看到它的端口号是3、和4.还有电脑本身带一个串口1，我在vb里怎么才能读到这几个串口的号？？？？ --------------------编程问答--------------------

Option Explicit

    Dim a As Integer

Private Sub Form_Load()

    Me.AutoRedraw = True

    On Error GoTo uerror

    For a = 1 To 16

        MSComm1.CommPort = a

        MSComm1.PortOpen = True

        If MSComm1.PortOpen = True Then

            Print "可用Com号= "; a

            MSComm1.PortOpen = False

        Else

        End If

    Next

    Exit Sub

uerror:

    Print "出错或占用Com号= "; a

    Resume Next

End Sub

--------------------编程问答-------------------- 可能是由于你的注册表的原因，把你的串口编号改乱了，你可以将其修改为COM1啊。 --------------------编程问答-------------------- 你可以用API函数来检查，CreateFile来依次打开COM1~COM4，看看他的返回，如果返回小于等于零，那么这个串口就不存在，如果返回值大于0，这个串口就存在。我的资源里有相关的代码。你可以下载来借鉴一下。 --------------------编程问答-------------------- 我也有这个问题，只不过我想用JAVA读，求解…… --------------------编程问答--------------------
读注册表比较快。逐个串口打开测试是很慢的。

补充：VB ,  基础类