如何检测winsock connect失败

Question

Const TimeOut = 6000
Private Sub Command1_Click()
Command1.Enabled = False
If Winsock1.State <> sckClosed Then
   Winsock1.Close
End If
Winsock1.Protocol = sckTCPProtocol
Winsock1.Connect "192.168.0.8", 8080
Do Until Winsock1.State = sckConnected
   DoEvents
   i = i + 1
   If i > TimeOut Then
      If VBA.MsgBox("连接不成功,超时,继续等待吗?", vbQuestion + vbYesNo) = vbNo Then
         Command1.Enabled = True
         Exit Sub
      Else
         i = 0
      End If
   End If
Loop
'Winsock1.SendData "aa"
MsgBox "连接成功!"
Command1.Enabled = True
End Sub

Answer 1

连接时检测到Winsock1.State =9就可表示连接失败