Sub Form_Load()
dim i as integer
for i=1 to 10
  If OPENCOM("Com" & i & ":")<>0 then 
    List1.additem "Com" & i & "  -  frei"
  Else
    List1.additem "Com" & i & "  -  geschlossen"
  endif
next i
end sub

____________________________
Heimschmiede.de.vu