Ports.Add("COM20") Ports("COM20").Open()Catch ex As Exception MessageBox.Show("COM20已经被其它程序占用,无法打开!","提示",MessageBoxButtons.OK)End Try