Test Foro de elhacker.net SMF 2.1

hola compis... vereis mi duda es como me las ingenio para mostrar un listado de puertos comm existentes en  el ordenador para luego colocarlos en un list box


Gracias mil  :P

bien amigos he logrado algo que me vale hay lo espongo por si alguien le sirve:

he utilizado un control mscomm llamado commtest ,un combobox llamado comboport  y un bucle de 1 a 16 que son los numeros de puerto analizados
funciona bien solo que si un puerto esta habierto por algun programa al no poder habrirlo no lo muestra en el combo


codigo:

Sub lista_comm()
On Error GoTo error
For I = 1 To 16
   
error:
        If Err Then
        Resume Proxim
        End If
    commtest.CommPort = I
    commtest.PortOpen = True
    commtest.PortOpen = False
    cboPort.AddItem "Com" & Trim$(Str$(I))
Proxim:
Next I
  For I = 0 To cboPort.ListCount - 1
    cboPort.ListIndex = I
       
        If cboPort.Text = "com" & Form1.comm(Form1.Indexcomm).CommPort Then
        I = cboPort.ListCount - 1
        End If
  Next I
End Sub

saludos espero os sirba