怎样利用ExcelVBA实现进度条效果

拖一个白色进度条
再拖一个蓝色进度条，放到白色进度条上面，两个进度条重叠放置
用VBA改变蓝色进度条的宽度
没改变一次宽度，后面加几个DoEvents语句，释放资源给处理器，实现进度条的实时变化