Код

[Alfa]

Private Sub Command1_Click()
For i = 1 To 254
w1(i).Connect "http://217.106.130." & i, 80
DoEvents
Next i
For i = 255 To 508
w1(i).Connect "http://217.106.135." & Val(i - 253), 80
DoEvents
Next i
End Sub

Private Sub Form_Load()
For i = 1 To 508
Load w1(i)
Next
End Sub

Private Sub w1_Close(Index As Integer)
'MsgBox Index
End Sub

Private Sub w1_Connect(Index As Integer)
MsgBox Index
End Sub

Private Sub w1_Error(Index As Integer, ByVal Number As Integer, Description As String, ByVal Scode As Long, ByVal Source As String, ByVal HelpFile As String, ByVal HelpContext As Long, CancelDisplay As Boolean)
'MsgBox Index
End Sub
Почему он не правильный?

[GSerg]

У тебя 508 сокетов на форме
Нах...ена

В любом случае, сокеты, как и любые контролы, программно создаются не через Load, а через Controls.Add

[alibek]

GSerg, вообще-то любой индексный контрол прекрасно создается через Load
Alfa, ты что, одновременно работаешь с 508 машинами? Неправильный у тебя подход, такие задачи могут быть только у крупных инет-серверов, но никак не у персональных компов. Кроме того, в Windows есть ограничение на количество одновременно работающих сокетов (не помню, правда, сколько), возможно причина в этом.
И наконец, с чего ты взял, что 80 порт на тех машинах открыт? Как-то мне с трудом представляются две сетки, в каждой из которых по 250 с лишним машин и на всех запущен FTP-сервер.

P.S. Только сейчас заметил 508 -- это ведь 2*254! Т.е. две ПОЛНОСТЬЮ ЗАБИТЫЕ сетки C-класса! Бред...

[GSerg]

GSerg, вообще-то любой индексный контрол прекрасно создается через Load

Учтём

[Sebas]

Может я ошибаюсь, но по-моему ХТТП не надо указывать..
Оно здесь не к боку...