ShowProgress
（创建时间：2010年12月04日 02:59:00）
'显示进度条的进度
Public Sub ShowProgress(PicBox As PictureBox, Optional ByVal dblProgress As Double)
'用法，你需要先在一个窗口里面添加一个PictureBox 控件。进度条会显示在这个PictureBox里面。
'dblProgress 是一个 0 - 1 之间的小数，注意当为0 时，进度条自动设置为初始状态(为0至少调用一次，否则进度条不会有原始的样子)。
' 当为1时，表示100%
文档中心
