串口问题

Question

如何让程序自动判断哪个串口有效，再将MSComm1.CommPort设为该串口。 且将次串口号显示在COMBOBOX上求程序

Answer 1

For i = 1 To 20
               On Error Resume Next
         MSComm1.CommPort = i
        MSComm1.PortOpen = True
        
        If Err.Number = 0 Then
            Combo1.AddItem "COM" & i
            MSComm1.PortOpen = False
        End If
        
    Next