如何使用进度条在VB6中下载多个文件？

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim totalFiles As Integer
    Dim fileSize As Long
    Dim downloadedSize As Long
    Dim progress As Single

    ' 设置总文件数和总文件大小
    totalFiles = 5
    fileSize = 1000000

    ' 循环下载多个文件
    For i = 1 To totalFiles
        ' 下载文件并获取已下载的文件大小
        downloadedSize = DownloadFile()

        ' 计算进度
        progress = downloadedSize / fileSize

        ' 更新进度条
        ProgressBar1.Value = progress * 100

        ' 如果下载完成，则重置进度条
        If downloadedSize = fileSize Then
            ProgressBar1.Value = 0
        End If
    Next i
End Sub

Private Function DownloadFile() As Long
    ' 在这里添加实际的文件下载代码
    ' 返回已下载的文件大小
    DownloadFile = 1000000
End Function