我想编一个发送接收的小软件，代码如下：

Private Sub CommExit_Click()
MSComm1.PortOpen = False
End
End Sub


Private Sub CommReceive_Click()
Dim buf$
buf = MSComm1.Input
If Len(buf) = 0 Then
txtReceive.Text = "Empty"
Else
txtReceive.Text = buf
End If
End Sub

Private Sub CommSend_Click()
MSComm1.Output = TxtSend.Text   单步运行到这儿，老提示：实时错误 424   要求对象
End Sub

Private Sub Form_Load()
MSComm1.PortOpen = True
End Sub

编译时单步运行，串口能打开，但是点击发送按钮和接收按钮时，老是提示：实时错误 424   要求对象
本人刚刚接触VB，不知道哪里出错误了，请高手给指点指点

谢谢，刚接触VB，对象的概念还不是特别理解，文本框原来名字定义成Text1和Text2了，改了文本框的名字，问题就解决了，看书找的一个例子，本来以为这个例子绝对正确呢，看来庸书害死人啊