主题：在数据多的时候，这段代码运行的时间会比较长，如何能加上弹窗的进度条呢？谢谢！

For Each dr As Row In Tables("库存").Rows

 If dr("照片号码") <> ""    Then

  Dim s As String = dr("照片号码")

  Dim s1 As String = dr("箱号")

  Dim qz As String = "\\work01\E\" '取照片地址

  If FileSys.FileExists(qz & s & ".jpg") Then

    FileSys.CopyFile(qz & s & ".jpg", Vars("照片地址") & s1 & ".jpg",True)

  End If

 End If

Next

MessageBox.Show("照片已经输出完毕...!", "提示")

在数据多的时候，这段代码运行的时间会比较长，如何点击该按钮，能出现弹窗的进度条呢？等图片都复制并改名完了，弹窗自动关闭，谢谢！