用vb编写的可以实现进度条的例子，请大家批评指正，-prepared with the progress achieved can be an example, please correct criticisms, thank you! ! Oh! !