Hola Pedro y Esteban, gracias por responderme, basándome un poco en el ejemplo de migsantiago elaboré esto:
For i = 1 To 16
MSComm1.CommPort = i
On Error Resume Next
MSComm1.PortOpen = True
If MSComm1.PortOpen = True Then Combo1.AddItem "COM" & i: MSComm1.PortOpen = False
Next
Combo1.Text = Combo1.List(0)
En el documento que sugiere Esteban Serial Port Complete(*) encuentro esto
Dim nameArray() As String
nameArray = SerialPort.GetPortNames
Array.Sort(nameArray)
Me parece interesante probar también con este método, trato de cargar este código en el form load() pero me sale error con Array.Sort(nameArray), si lo deshabilito el error desaparece pero el array no se carga con ningún valor, algien ha tarbajado con este método ?
Saludos.