Dim so As IntegerDim A As IntegerPrivate Sub Form_Load()Timer1.Enabled = TrueTimer1.Interval = 1000A = 1End SubPrivate Sub Timer1_Timer()so = so + 1If A = 0 Then
so = 0
Me.Caption = "正常运行"
Exit SubElse
Me.Caption = so
If so >= 6 Then
so = 0'
触发button事件
End I...