如何在不崩溃/冻结程序的情况下关闭端口？

Question

我编写了一个Visual Basic程序，它通过串口从PIC24 MicroControlelr恢复数据并将数据打印到RichTextBox，我稍后可以将其保存为.txt文件。 当我尝试关闭端口时，它关闭的时间很短，我能够从RichTextBox保存文本，但很多时候程序冻结并需要重新启动。 下面的代码是我用来关闭Comm端口的代码

Dim Thread1 As New System.Threading.Thread(AddressOf run_Disconnect)

Private Sub run_Disconnect()
    MyApplication.DoEvents()
    Tester_Comm.Close()
End Sub

我如何获得是这样我可以关闭Comm端口而不会经常冻结？