求助：Winsock编程，一关闭程序就死

我用winsock控制写了一server端，点运行能跑起来，看到端口建立listening 状态．但一退出，想退出程序，程序就死了，状态不＂没响应＂．要在＂任务管理器＂中才能关闭．
　　我有一客户端程序，也是如此．只在一退出，程序就处于＂没响应＂状态．
程序代码如下：
Private Sub Command1_Click()
On Error GoTo Err
    If Winsock2.State <> sckClosed Then Winsock2.Close
    Unload Me
    Exit Sub
    
Err:
    MsgBox "Wrong"
    
End SubPrivate Sub Form_Load()    Winsock2.LocalPort = "33333"
    Winsock2.Listen
    
End SubPrivate Sub Winsock2_DataArrival(ByVal bytesTotal As Long)
    Winsock2.GetData strDate
    Text1.Text = strDate
End Sub请教各位要如何建立啊．谢谢