在CVI中中怎么查找计算机有多少个串口，并且返回串口号

在CVI中中如何查找计算机有多少个串口，并且返回串口号？
请问：在VB中如何查找计算机有多少个串口，并且返回串口号？
请教各位大神谢谢了

[解决办法]

VB code

Option ExplicitPrivate Sub Command1_Click()    Dim intP As IntegerOn Error GoTo errSub    For intP = 1 To 256        MSComm1.CommPort = intP        MSComm1.PortOpen = True        MSComm1.PortOpen = False        List1.AddItem "COM" & CStr(intP)    Next intP    Exit SuberrSub:    Debug.Print Err.DescriptionEnd Sub
[解决办法]
系统能支持这么多串口嘛...
好像16还是32个吧,巫师别256啊