Como listar o detectar los puertos serie con Visual Basic 6

Hola Haber si alguien me puede indicar com listar o saber los puertos serie que existen en el pc con Visual Basic 6 que codigo debo utilizar
Gracias

Dentro de un ciclo intenta abrir cada puerto del 1 al 255 por ejemplo, para cada puerto: captura el error que se genera cuando tratas de abrir un puerto no existente.. cuando este error no se genere (es decir que el puerto existe y lo puedes abrir) agrega el puerto a un listbox o a lo que quieras y lo cierras. Como resultado tendras los puertos existentes en un listbox, etc.

Muchas gracias por la idea, me ha servido.
Para lo que necesites puedes contar conmigo