Question

vb 时钟控件 一个窗口打开5秒后自动关闭，可用鼠标单击一下该窗口或者按任意键也可以关闭它。

Answer 1

在窗体上放时钟控件，设置其Interval为5秒计时，双击该图标在其事件代码窗口输入关闭窗口的代码：unload me或者直接END。
在该窗口的鼠标单击事件和键盘事件同样输入上面的代码，这样就可以达到点击或者按任意按也可以关闭它。

Answer 2

假定弹出的界面叫frmpop，在frmpop上添加一个时钟控件，添加一个label，label的caption设置成"读取中..."，大小什麼的依喜好设定，然后把时钟控件的Interval设成5000.
弹出界面的时候可以用 frmpop.show
在frmpop里的时钟控件的timer事件里， 用frmpop.hide来隐藏

=============
form1的load事件里，
me.hide
frmpop.show

frmpop的time1_timer事件里
me.hide
form1.show
另外,团IDC网上有许多产品团购,便宜有口碑

Answer 3

窗体上放一个Timer控件，一个Label控件

Private Sub Form_Load()
Label1.Caption = 5
Timer1.Interval = 1000
End Sub

Private Sub Timer1_Timer()
Label1.Caption = Label1.Caption - 1
DoEvents

If Label1.Caption = 0 Then Unload Me
End Sub

Answer 4

把窗口锁定