Originariamente inviato da Daniel79
[....]

Non c'è un modo per inserire nella combobox solo le porte com effettivamente presenti sul computer???
codice:
        With  MSComm1
          combo1.Clear
          For s = 1 To 255
            Err.Clear
            If .PortOpen = True Then .PortOpen = False
            On Error Resume Next
            .CommPort = s
            .PortOpen = True
            If Err.Number = 0 Then
              combo1.AddItem Trim(CStr(s))              
            End If
            .PortOpen = False
          Next s
        End With