一个button控件,一个timer控件,初始值:Enabled=False,Interval=1000一个ProgressBar1控件,初始值:Min=0Max=10程序如下:Dim i As IntegerPrivate Sub Command1_Click()Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()i = i + 1If i <= 5 ThenProgressBar1.Value = ProgressBar1.Value + 2Else: Timer1.Enabled = False
MsgBox "运行完毕"