Er Winsock forbindelse åben?

If Winsock1.State = 7 Then
'...
End If


Constant Value Description
sckClosed 0 Default. Closed
sckOpen 1 Open
sckListening 2 Listening
sckConnectionPending  3 Connection pending
sckResolvingHost  4 Resolving host
sckHostResolved  5 Host resolved
sckConnecting  6 Connecting
sckConnected  7 Connected
sckClosing  8 Peer is closing the connection
sckError  9 Error

Takker... :D
Svar?

sorry ;)

Hmm...
Det her virker ikke.. Burde det ikke det?

    For x = 0 To 400
        If Winsock(x).State = 0 Then
            Winsock(x).Accept requestID
            AddConnectionArray (x)
            Exit For
        End If
    Next

AddConnectionArray er en funktion som jeg selv har lavet...
Glemte lige at sige at fejlen er: Control array element '1' deosn't exist