array med winsock

Jeg har lavet et array med winsock og det virker også ganske fint. Men i modsætning til alle andre spørgsmål omkring dette er det clienter som skal connecte til andre ting.

Jeg har følgende kode:

For i = 1 To UBound(PrinterName)
Load Winsock1(i)
Winsock1(i).RemoteHost = PrinterName(i)
Winsock1(i).RemotePort = 80
Winsock1(i).Connect
Next i


Private Sub Winsock1_Connect(Index As Integer)
MsgBox "winsock1_connect index = " & Index
Winsock1(Index).SendData "GET /" & PrinterTypeLink(Index) & " HTTP/1.1" & vbNewLine & _
                        "Host: " & PrinterName(Index) & vbNewLine & _
                        "Connection: Keep-Alive" & vbNewLine & vbNewLine
MsgBox "GET /" & PrinterTypeLink(Index) & " HTTP/1.1" & vbNewLine & _
                        "Host: " & PrinterName(Index) & vbNewLine & _
                        "Connection: Keep-Alive" & vbNewLine & vbNewLine
End Sub

Private Sub Winsock1_DataArrival(Index As Integer, ByVal bytesTotal As Long)
Dim WinsockGetData As String
Winsock1(Index).GetData WinsockGetData
Text1.Text = Text1.Text & WinsockGetData
MsgBox Index
End Sub


når det bliver kørt får jeg ingen fejl men får kun noget tilbage fra den sidste i det winsock array jeg har kørt. Nogen ideer om hvorfor de winsocks der ligger før i arrayet ikke connecter?