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