VB 中利用label+时钟控件演示制作进度条,需要原代码的加QQ