如
For Each sp As String In Ports.PortNames Output.Show(sp) Ports.Add(sp) Ports(sp).Open()Next
http://www.foxtable.com/webhelp/scr/1968.htm