Vb.net 使用AxInterop.MSWinsockLib进行套接字编程'；s状态保持在6-6秒

我正在使用AxInterop.MSWinsockLib.dll、Interop.MSWinsockLib.dll和MSWINSCK.OCX创建到打印机的套接字连接。下面的代码是我使用的，但无论我在尝试连接后将代码放入while循环或Thread.Sleep（）中，连接状态仍然保持在6，即“Connecting”。请尽快协助

        Try
        Dim sock As AxMSWinsockLib.AxWinsock
        sock = New AxMSWinsockLib.AxWinsock
        CType(sock, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.Controls.Add(sock)
        CType(sock, System.ComponentModel.ISupportInitialize).EndInit()
        sock.RemoteHost = "10.194.1.132"
        sock.RemotePort = 3001
        sock.Connect()
        MessageBox.Show(sock.CtlState.ToString())
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

---

有一些VB6控件值得在一个温暖的地方喝着可乐退休。MSWinsock位于列表的顶部，不要期望它在控制台模式的应用程序或服务中工作。请改用.NET TcpClient类。使用SysInternals的TcpView实用程序获取基本诊断。确保防火墙上的端口已打开。确保打印机确实在该端口上侦听。哈哈，我听到了。。。不幸的是，由于旧代码，我不得不使用它。