'停止程序运行
Private Sub Cmdquit_Click()
MSComm1.PortOpen = False
Unload Me
End Sub
'启动定时器 把字符通过串口发送出去
Private Sub Cmdsend_Click()
'trim ()去掉字符串前后的空格
MSComm1.Output = Trim(TextSend.Text) '往缓冲区写数据
Timer1.Enabled = True
End Sub
Private Sub Combo1_Click()
Print Combo1.Lis