各位朋友帮我看看VB串口通讯程序

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”，要求对象，调了半天，不知从哪里入手，希知道的朋友及大虾指点一下。