dim i as integer \\此处声明窗体变量i=20private sub timer1_timer() \\把timer1和inteval设为1000i=i-1if i=0 then msgbox("时间到"):timer1.enable=fasleend sub
[此贴子已经被作者于2007-4-22 13:04:07编辑过]