将Timer的Enabled属性设置为False可以暂停Timer；将Timer的Enabled属性设置为Ture可启动Timer。见以下代码Option ExplicitPrivate Sub Command1_Click() With Timer1 .Interval = 1000 '！！

启动定时器 .Enabled = True End WithEnd SubPrivate Sub Command2_Click() '！！

暂停定时器 Timer1.Enabled = FalseEnd SubPrivate Sub Timer1_Timer() Debug.Print "ABC"End Sub