循环之前
StatusBar.Message1= "正在下载"StatusBar.ProgressBar.Visible =TrueStatusBar.ProgressBar.Maximum = ja.Count StatusBar.ProgressBar.Minimum = 0
循环中,赋值,如
StatusBar.ProgressBar.value = i+1
Application.DoEvents