循环 Label text 只显示最后的值

[yusheng221]

在做进度条时 Label 只在计算到100% 是才显示出来
是哪里的问题呀，求解？？

 download.Show()
        download.down_bar1.Minimum = 0
        download.down_bar1.Maximum = 100
        For x1 = 0 To 10
            For y1 = 1 To 10
                If a(x1, y1) <> "" Then
                    MyFileName = strPath & "\" & a(x1, 0) & "\" & a(x1, y1) & "\1.gif"
                    z1 = z1 + 1
                    bfb = (z1 / z) * 100                '百分比
                    download.down_bar1.Value = bfb 'z1 / z * 100    '进度条
                    download.down_lb1.Text = "已下载" & bfb & "%"      '   Label1         
                    MyClient.DownloadFile(MyUri, MyFileName)
                End If
            Next


        Next
        '  download.Close()

[threenewbee]

For y1 = 1 To 10 Application.DoEvents() If a(x1, y1) <> "" Then

[yusheng221]

多谢，感激不尽