紧急求组！该怎么解决

紧急求组！
小弟写一个winsock通信程序
程序如下
Private   Sub   Command1_Click()

      If   Me.Winsock1.State   <>   sckClosed   Then   Me.Winsock1.Close
        Me.Winsock1.Connect   "127.0.0.1 ",   2000
        Me.Timer1.Enabled   =   False
End   Sub

Private   Sub   Command2_Click()
If   Me.Winsock1.State   <>   sckClosed   Then   Me.Winsock1.Close
        Me.Winsock1.Connect   "192.168.1.111 ",   2000
End   Sub

Private   Sub   Form_Load()
        Me.Winsock2.Listen
End   Sub

Private   Sub   Form_Unload(Cancel   As   Integer)
        Me.Winsock1.Close
        Me.Winsock2.Close
End   Sub

Private   Sub   Winsock1_Connect()
        Me.Winsock1.SendData   CStr(Now)
End   Sub

Private   Sub   Winsock2_ConnectionRequest(ByVal   requestID   As   Long)
        If   Me.Winsock2.State   <>   sckClosed   Then   Me.Winsock2.Close
        Me.Winsock2.Accept   requestID
End   Sub

Private   Sub   Winsock2_DataArrival(ByVal   bytesTotal   As   Long)
        Dim   strsql   As   String
        Me.Winsock2.GetData   strsql
        Me.Text1.Text   =   strsql
        Me.Winsock2.SendData   "OK "
End   Sub

Private   Sub   Winsock2_SendComplete()
          'Me.Winsock2.Listen
End   Sub

有个问题，我想每单击一次Command1   都重新连接一次
为什么winsock2_ConnectionRequest   只响应一次，其他单击都没有反应？？？
怎么才能每次单击都响应，谢谢

[解决办法]
因为第一次连接建立后winsock2就没有监听了。你可以在ConnectionRequest里面用一个新的Winsock来建立连接。
[解决办法]
应该用winsock1数组控件
[解决办法]
改用UDP.每次单击都响应.
[解决办法]
或者每次连接成功并且发送信息后....
WINSOCK.CLOSE
运行关闭事件.....
[解决办法]
或者每次连接成功并且发送信息后....
WINSOCK.CLOSE
运行关闭事件.....
[解决办法]
UP
[解决办法]
...............................