可以的。例如:    Winsock1.LocalPort = 5458    '5458是侦听了端口
    Winsock1.Bind 5458
    Winsock1.Listen
    
    Winsock2.RemoteHost = Winsock1.LocalIP'指定服务器为本机的ip
    Winsock2.RemotePort = 5458'服务器的端口
    Winsock2.Connect Winsock2.RemoteHost, 5458'连接Private Sub Winsock1_ConnectionRequest(ByVal requestID As Long)
    If Winsock1.State <> sckClosed Then Winsock1.Close
    Winsock1.Accept requestID'服务器端响应连接请求
End Sub
注意:最好在连接成功后才发送数据,否则会出错。