老师，你好！
帮我看看是怎么回事：
进度条的界面和上面主题一样，然后在ProgressBar控件中写成这样：
Public Class ProgressForm
Private Sub ProgressBar1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ProgressBar1.Click
With ProgressBar1
Application.DoEvents()
End With
End Sub
End Class
然后在主窗口的事件处理中是这样：
Private Sub btnDataAnalysis_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDataAnalysis.Click
''显示进度条
Dim sf As ProgressForm = New ProgressForm()
sf.Show()
ProgressForm.Refresh()
'事件处理......
''关闭隐藏进度条
sf.Close()
sf.Dispose()
sf = Nothing
End Sub
可是在处理数据时还是不能显示进度条（只显示一个白色的影子）。
这是怎么回事？
