inet下载图片的问题

inet下载图片的问题我的list1里面有100多个图片的地址，如果我用这样的，就会出现 “仍在执行上一请求” 的错误Private Sub Command1_Click()
    For i = 0 To List1.ListCount - 1
        Call StartDownLoad(List1.List(i))
    Next
End SubPrivate Sub StartDownLoad(ByVal Geturl As String)
    Inet1.Execute Geturl, "get"
End SubPrivate Sub Form_Load()
    For i = 0 To 100
        List1.AddItem "http://www.baidu.com/img/baidu_logo.gif"
    NextEnd SubPrivate Sub Inet1_StateChanged(ByVal State As Integer)
    Dim vtData() As Byte
    Select Case State
        Case icError
            vtData = Inet1.ResponseCode & ":" & Inet1.ResponseInfo
        Case icResponseCompleted
            Dim bDone As Boolean: bDone = False
            vtData() = Inet1.GetChunk(1024, icByteArray)
            DoEvents
            Open App.Path & "/" & Timer & ".gif" For Binary Access Write As #1
                If Inet1.GetHeader("Content-Length") > 0 Then ProgressBar1.Max = CLng(Inet1.GetHeader("Content-Length"))
                Do While Not bDone
                    Put #1, Loc(1) + 1, vtData()
                    vtData() = Inet1.GetChunk(1024, icByteArray)
                    DoEvents
                    ProgressBar1.Value = Loc(1)
                    If ProgressBar1.Value = Inet1.GetHeader("Content-Length") Then bDone = True
                Loop
            Close #1
    End Select
End Sub怎么样才可以一个一个的下载？下载完一个，再下载另一个？请求各位