主题：关于串口

串口已经被别的软件打开的情况下，运行狐表程序（也要用到同一个串口），提示错误如下：

此主题相关图片如下：111.jpg

怎样做到当运行项目时，检测到串口已经被打开，提示自己的信息，例如：messagebox.show("串口已经被打开！")，而不是狐表自己出现的错误提示？

我试过了，不行。打开狐表两次也出现同样的提示，不太专业。

上例中，如果串口已经被别的程序打开，就提示信息，然后退出Foxtable。在AfterOpenProject事件中，代码如下：

Try
    Ports.Add("COM4")
    With Ports("COM4")
        .Close()
        .Parity = Parity.None
        .Handshake = Handshake.None
        .StopBits = StopBits.One
        .BaudRate = 9600
        .DataBits = 8
        .ReadBufferSize() = 4096
        .WriteBufferSize() = 2048
        .Open
    End With
    Catch ex As Exception
    Dim Result As DialogResult
    Result =MessageBox.show("通讯端口已经被使用,停止加载程序!","提示",MessageBoxButtons.OK)
    If Result = DialogResult.OK Then
        Syscmd.Project.Exit()
    End if
End Try

可是报错

此主题相关图片如下：未命名.jpg

是什么原因呢？