请高手帮忙,winsock有关问题

请高手帮忙,winsock问题
如果我通过一台电脑发送数据过来,可以接收到发送的数据;可是我发送数据到网络中的一个设备,怎么就不能接收到它的返回数据呢,我用抓包工具,可以看到该网络中的设备也向计算机发送信息了,可是总是收不到,是什么原因阿??
  代码是这样的: [code=VB][/code]
  SockRec.LocalPort = CInt(txtLocalPort.Text)
  SockRec.Bind CInt(txtLocalPort.Text)
Private Sub SockRec_DataArrival(ByVal bytesTotal As Long)
  Dim data As String
   
  data = String(bytesTotal + 2, Chr$(0))
  SockRec.GetData data, , bytesTotal
  RecMessage.Text = data
  lblRemoteIPAddr.Caption = SockRec.RemoteHostIP
  lblRemotePort.Caption = SockRec.RemotePort

End Sub

------解决方案--------------------
用 socket控件吗 有现成的事件函数