我在窗口里添加了inet控件数组，下面的代码为什么出下控件数组＂１＂不存在，请高手援手

我在窗口里添加了inet控件数组，下面的代码为什么出下控件数组＂１＂不存在，请高手援手
Private Sub lis(i)
'On Error Resume Next
Dim a(0 To 100)inet(i).Execute List1.List(i)　＇这一行是出错的行 Do '\'开始接受数据
        Do Until inet(i).StillExecuting = False '\'这里阻塞前面的Inet1，你可以将此Do取消了试一次
           DoEvents
        Loop
        a(i) = inet(i).GetChunk(512, icString)
        If Len(a(i)) = 0 Then Exit Do
        Text6.Text = Text6.Text + a(i)
Loop
End Sub