dim Comport as new serialport
   dim port as string () =serialport.getportnames
    for i as integer = 0 to port.length
     with
  with Comport
   .portname=port(i)
   .open
  end with