Private Sub Command2_Click()
MSComm1.PortOpen = False
End
End Sub
Private Sub Form_Load()
MSComm1.CommPort = 4 '用MSCOMM控件的COMMPORT属性定义使用COM4口
MSComm1.Settings = "4800,N,8,1" '定义串口的数据格式：9600 bit/s,无奇偶效验位，8位数据，一个停止位
MSComm1.InputLen = 1 '空间读入整个缓冲区
MSComm1.RThreshold = 1 '当接收到一个字符后，触发ONCOMM事件
MSComm1.PortOpen = True
End Sub
Private Sub MSComm1_OnComm()
Select Case MSComm1.CommEvent
Case comEvReceive '接收字符的事件触发
txtRecive.Text = MSComm1.Input
End Select
End Sub
Private Sub 开始_Click()
MSComm1.Output = txtSend.Text
End Sub
小弟才学 vb,什么都不懂，调试此程序的时候说：实时错误”424”，要求对象，调了半天，不知从哪里入手，希知道的朋友及大虾指点一下。
