'在窗体添加一个Timer控件以及一个Button控件
'Button控件的Click事件用来控件Timer控件的Enable属性
'即当Timer控件的的Enable属性为False时,当点击下
'Button控件时则Timer控件的Enable属性变为True,
'当Enable属性变为True时,击下Button控件时,
'则Timer控件的Enable属性变为False
Private Sub Command1_Click()
    'Eqv用来对两个表达式进行逻辑等价运算。
    '当Enable = False 时, 那么 等价于False, 是真命题(True)
    '当Enable = True 时, 那么 不等价于False, 是假命题(False)
    Timer1.Enabled = (Timer1.Enabled Eqv False)
End Sub

'我以前这是这么实现的(笨啊)
dim i as integer
Private Sub Command1_Click()
    if(i mod 2 = 0) then
        Timer1.Enabled = true
    else
        Timer1.Enabled = false
    end if
    i = i + 1
End Sub

我是这样的实现的

Timer1.Enabled = NOT Timer1.Enabled

如果为了提高效率,就是

dim i ad bool....   '自己补全,随手写的,放在开头或定义为静态,

过程里
i=not i
Timer1.Enabled = i

原因是,访问控件的属性时,会带来性能的开销,所以用一个变量来标志状态.

用非更简洁.