50分!!!

Question

Private Sub Quit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Quit.Click
        Me.Close()
    End Sub可能原因出现在这里，并未完全关闭所有的端口，其实虽然程序停止了，但是端口通信并未复位，这就是为什么你复位以后又可以进行的原因。

Answer 1

不是的,我没有点击Quit按钮时也是这样.

Answer 2

Try
            MSComm1.OutBufferCount = 0
            MSComm1.Output = TextOut.Text
  '     do while MSComm1.OutBufferCount <>0
           doevents  (NET 里面需要对象)
        loop
          
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try