请教高手 vb使用udp协议报错 run-time error '2'

从本论坛下载了一个示例程序 

Private Sub CommandSendMsg_Click()
Winsocksend.SendData Text1.Text
End Sub

 

Private Sub Form_Load()
With Winsocksend
.RemoteHost = "192.168.1.255"
.RemotePort = 3001
.LocalPort = 4018
.Bind (4018)
End With
End Sub

每次运行CommandSendMsg_Click时候都提示出错  run-time error '2'，但在别人的电脑上运行没有问题，我的电脑不管怎么改IP地址都会出现这个错误。

请高手帮忙看看是怎么回事，非常感谢！ socket控件 是否 选择是upd协议 是的，已经选中了udp协议，默认是tcp协议。

而且在网上搜索 关于 run-time error '2'的错误说明也没有；调试的时候也没有关于此错误的联档帮助文件 .RemoteHost = "192.168.1.255"   应该是电脑的名称不是IP吧。 我也遇到这个问题了。同问，代码在别人机器上是好使的。 只有一个 Run-time error '2' 的报错，无任何详细信息，是在调用winsock的senddata时候发生的。

    With Winsock1

        .RemotePort = 2425

        .RemoteHost = "192.168.1.1"

        .Protocol = sckUDPProtocol

        .Bind 4923, .LocalIP    

        .SendData "a"    '<-运行时此处报错

    End With

RemoteHost = "192.168.1.1"   ’<-此处换成机器名同样不行。 是不是控件安装不正确？重新注册看看，另外，Bind (4018)会不会是端口已经被占用？

补充：VB ,  网络编程