主题：关于串口

可以试试：

If ports("COM1").IsOpen Then

End If

如果不行，就没有办法。

上面应该是不行的，可以这样：

Try

    '源代码

Catch ex As Exception

    MessageBox.show("错误信息")

End Try

End try之后还有代码吧？退出命令之后应该加上Return，避免执行End Try之后的代码

 If Result = DialogResult.OK Then
        Syscmd.Project.Exit()

        Return
End if