Inet控件数组问题的不解.

For i = 0 To List2.ListCount - 2
      Load Inet1(i)
      Inet1(i).Cancel
      Inet1(i).Execute Text1.Text & List2.List(i)  
      Next——————————————————————————————————————————————
Private Sub Inet1_StateChanged(Index As Integer, ByVal State As Integer)
On Error Resume Next
Debug.Print State
If State = 12 Then
    If Mid(Inet1(Index).GetHeader, 10, 3) = "200" Or Mid(Inet1(Index), 10, 3) = "403" Then
      List1.AddItem Text1.Text & List2.List(Index)
    End If
    If ScanIndex >= List2.ListCount - 2 Then
    Label2.Caption = "状态： " & " 完毕！"
    ScanIndex = 0
    Exit Sub
    Else
      ScanIndex = ScanIndex + 1
      Inet1(Index).Execute Text1.Text & List2.List(Index)
        Label2.Caption = "状态： " & Text1.Text & List2.List(Index)
              Inet1(Index).Cancel
      Unload Inet1(Index)
     End If
End If
End Sub
——————————————————————————————————————————————————
我用的是控件数组去链接网站的每一个链接 但是为什么Index的索引值有相同的呢？
我建立了控件数组,我也看了Inet1_StateChanged(Index As Integer, ByVal State As Integer) 事件了,,我用立即窗口调试发现个奇怪的问题,,就是那个Index索引值这样，
为什么会出现多次索引相同啊？下面是一部分索引    放不下太多,,,
0 
0 
0 
1 
2 
3 
4 
5 
6 
7 
8 
9 
0 
0 
0 
0 
1 
1 
1 
1 
2 
2 
2 
2 
3 
3 
3 
3 
4 
4 
4 
4 
5 
5 
5 
5 
6 
6 
6 
6 
7 
7 
7 
7 
8 
8 
8 
8 
9 
9 
9 
9 
0 
0 
0 
0 
1 
1 
1 
1 
2 
2 
2 
2 
3 
3 
3 
3 
4 
4 
4 
4 
5 
5 
5 
5 
6 
6 
6 
6 
7 
7 
7 
7 
8 
8 
8 
8 
0 
0 
0 
0