'显示进度条的进度
Public Sub ShowProgress(PicBox As PictureBox, Optional ByVal dblProgress As Double)

'用法，你需要先在一个窗口里面添加一个PictureBox 控件。进度条会显示在这个PictureBox里面。
'dblProgress  是一个 0 - 1 之间的小数，注意当为0 时，进度条自动设置为初始状态(为0至少调用一次，否则进度条不会有原始的样子)。
'                        当为1时，表示100%