Question

vb倒计时关闭窗口

Answer 1

'往窗体上添加一个Timer控件 设置Interval=1000 代码如下：
Private Sub Timer1_Timer()
Static i As Integer
i = i + 1
If i = 3 Then Unload Me
End Sub

Answer 2

在计时器控件中,加入以下代码:(要先设置interval属性为1000)
a=a+1 '计数器
if a >=N,then end '先判断,如果已经过N秒,则关闭本程序