在30秒的时候弹出个messagebox选择的事件
十余年的峨眉山网站建设经验，针对设计、前端、开发、售后、文案、推广等六对一服务，响应快，48小时及时工作处理。成都全网营销推广的优势是能够根据用户设备显示端的尺寸不同，自动调整峨眉山建站的显示方式，使网站能够适用不同显示终端，在浏览器中调整网站的宽度，无论在任何一种浏览器上浏览网站，都能展现优雅布局与设计，从而大程度地提升浏览体验。创新互联从事“峨眉山网站设计”,“峨眉山网站推广”以来，每个客户项目都认真落实执行。
确定就把timer的enabled属性设置成false 执行关机
取消把timer的enabled属性设置成false 计时器清零就行了
MsgBox函数的格式：
变量=MsgBox(提示信息[,按钮类型][,标题])
或： MsgBox 提示信息[,按钮类型][,标题]
其中按钮类型由3部分组成：按钮类型+图标类型+默认按钮
其值如下表：
只需改变MsgBox函数的第二个参数即可，比如
x
=
MsgBox("只显示“确定”按钮",
vbOKOnly)
x
=
MsgBox("显示“确定”和“取消”按钮",
vbOKCancel)
x
=
MsgBox("显示“中止”、“重试”和“忽略”按钮",
vbAbortRetryIgnore)
x
=
MsgBox("显示“是”、“否”和“取消”按钮",
vbYesNoCancel)
x
=
MsgBox("显示“是”和“否”按钮",
vbYesNo)
x
=
MsgBox("显示“重试”和“取消”按钮",
vbRetryCancel)
也可以用数字：
x
=
MsgBox("只显示“确定”按钮",
0)
x
=
MsgBox("显示“确定”和“取消”按钮",
1)
x
=
MsgBox("显示“中止”、“重试”和“忽略”按钮",
2)
x
=
MsgBox("显示“是”、“否”和“取消”按钮",
3)
x
=
MsgBox("显示“是”和“否”按钮",
4)
x
=
MsgBox("显示“重试”和“取消”按钮",
5)
请注意，根据点击按钮的不同，返回值也是各不相同的，比如：
If
x
=
vbOK
Then
'点了“确定”按钮
If
x
=
vbCancel
Then
'点了“取消”按钮
If
x
=
vbAbort
Then
'点了“中止”按钮
If
x
=
vbRetry
Then
'点了“重试”按钮
If
x
=
vblgnore
Then
'点了“忽略”按钮
If
x
=
vbYes
Then
'点了“是”按钮
If
x
=
vbNo
Then
'点了“否”按钮
同样，也可以用数字：
If
x
=
1
Then
'点了“确定”按钮
If
x
=
2
Then
'点了“取消”按钮
If
x
=
3
Then
'点了“中止”按钮
If
x
=
4
Then
'点了“重试”按钮
If
x
=
5
Then
'点了“忽略”按钮
If
x
=
6
Then
'点了“是”按钮
If
x
=
7
Then
'点了“否”按钮
