Question

vb 程序运行过程中提示确认或取消，点击确认继续运行下面的，点击取消则退出程序

并且如果5秒未选择则默认选择取消

Answer 1

....
dim userChoice as integer
timer1.inteval=1000
timer1.enable=true
userChoice=msgbox("您想继续吗？",vbOkCancel,"来自程序的信息")
if userChoice=vbOK then
else
end
end if
timer1.inteval=0
....
Timer1的Timer事件这么写
private sub Timer1_timer()
static i as integer
i=i+1
if i>= 5 then
i =0
end
end if
end sub
有个问题是用户的所有操作时间必须小于5秒，否则程序就结束了。解决起来比较麻烦，弹出窗口要自己编写，而且需要用API函数去获取鼠标移动或者有按键按下的消息，然后自己定义怎么处理它们。
我建议你把这个时间放大得了，比方说用20秒作为等待时间，并且加入一个提醒的框，告诉用户还剩下多少操作的时间。

Answer 2

自己做个对话框，里面加定时器！
确定按钮里的代码为：unload me
取消按钮里的代码为：end
计时器的interval属性为5000
计时器里的代码为：end

Answer 3

Dim x As Integer
x = MsgBox("xxx", vbOKCancel)
If x = 2 Then
End
End If