UDP问题！

Question

以下代码出现地址正在使用的错误！！！！
请帮帮忙！
Private Sub Command1_Click()
Me.Winsock1.Close
Me.Winsock1.Protocol = sckUDPProtocol
Me.Winsock1.LocalPort = "6000"
Me.Winsock1.RemotePort = "6000"
Me.Winsock1.RemoteHost = "172.16.0.1"
Me.Winsock1.SendData Me.Text1.Text
End Sub

Answer 1

UDP里边Me.Winsock1.LocalPort = "6000"这句话一般这么写：Me.Winsock1.bind 6000

Answer 2

如果写成：
me.winsock1.bind 6000 就马上报地址正在使用

Answer 3

me.winsock1.bind 6000 
是正确的
你的6000端口是不是有程序在使用？？