这段代码出要要求对像的出错信息
大家能不能帮我看看错在那里

Private Sub winsock1_DataArrival(ByVal bytesTotal As Long) '接收数据,可以让我们检查数据是否发送成功
Dim tmpstr As String
Winsock1.GetData tmpstr
Text2.Text = tmpstr
End Sub
Private Sub Command1_Click()
Winsock1.RemotePort = 80 '远程主机打开的端口一般都为80
Winsock1.RemoteHost = www.baidu.com '远程主机的域名也可以输IP
Winsock1.Connect '打开一个SOCKET连接
Command1.Enabled = False '一次只能打开一个连接所以要让SEND按钮失效
End Sub

Private Sub winsock1_Connect()
Winsock1.SendData Text1.Text '打开连接成功的话就发送数据
End Sub

Private Sub Command2_Click()
Winsock1.Close
Command1.Enabled = True '关闭连接,让SEND按钮有效
End Sub