Hur ska jag gjöra så att mitt program inte låser sig under tiden det körs för nu måste hela programmet köra klar innan filerna listas i listan jag skulle vilja att man kan se när varje rad läggs


Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, ByVal szURL As String, _
ByVal szFileName As String, ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Private Sub Command1_Click()

Dim errcode As Long
Dim url As String
Dim localFileName As String
Dim Filnamn As String
Dim Plats As String
Dim Spara As String

Plats = Text1.Text
Spara = Text2.Text

List1.Clear
For i = 0 To 100
Fil = Mid(100000 + i, 2, 5) & ".pdf"

url = Plats & Fil
localFileName = Spara & Fil

errcode = URLDownloadToFile(0, url, localFileName, 0, 0)
If errcode = 0 Then
List1.AddItem Plats & Fil & " Hittad"
Else
List1.AddItem Plats & Fil & " Finns ej"
End If
Next i
List1.AddItem "Klar"
End Sub

Private Sub Command2_Click()
Unload Me
End Sub