请问用一个Winsock能否又做服务器又做客户

Question

Private Sub Command1_Click()
Winsock1.Close
Winsock1.Connect "192.168.0.27", 3001
End SubPrivate Sub Form_Load()
 Winsock1.LocalPort = 2001
 Winsock1.Listen
End SubPrivate Sub Winsock1_Close()
 Winsock1.Close
 msg = "已断开连接"
 Winsock1.LocalPort = 2001
 Winsock1.Listen
End SubPrivate Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID
    msg = "连接成功"
End Sub

Answer 1

??
同一个Winsock1
这样肯定不行

Answer 2

第一次可连接，再连接就失败。除非换一个监听端口。有没有不换端口且只用一个winsock实现。