用vb编winsock传数据的程序，只能发送不能接受

A跟B建立连接以后，我发一个标识符，B应该会返回一串字符。我用网络调试助手测试的时候都是正常的，但是用我编的vb程序调试的时候B确实返回了数据，但是A却接收不到，请问这是问什么？
A那边的vb程序如下：
Private Sub Command1_Click() '建立连接
Winsock1.Connect "169.254.4.10", 5025
End Sub

Private Sub Command2_Click() '发送数据
Winsock1.SendData Text1
End Sub

Private Sub Form_Load()
Timer1.Interval = 500
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Winsock1.State
End Sub

Private Sub Winsock1_DataArrival(ByVal bytesTotal As Long) '接收数据
Label2.Caption = 123 '判断有没有接收到数据
Dim strdata As String
Winsock1.GetData strdata
Text2 = strdata
End Sub

可能你的头文件没有包含基于Windows socket的功能，你试试添加该功能

任务占坑