'在窗体添加一个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

用非更简洁.