怎么用vb编写一个开启后在十秒后自动退出的程序

我也来凑个热闹,呵呵
新建工程,直接贴下面代码运行

Dim WithEvents timer1 As Timer
Private Sub Form_Load()
Set timer1 = Controls.Add("vb.timer", "timer1")
timer1.Interval = 10000
timer1.Enabled = True
End Sub

Private Sub timer1_Timer()
End
End Sub

Private Sub Form_Load()
Timer1.Enabled = True
Timer1.Interval = 6000 '6秒
End Sub

Private Sub Timer1_Timer()
Unload Me
'或者用End
End Sub

在窗体添加一个Timer1控件，复制以上代码，按F5运行，即可看到效果。

效果:打开软件,等待6秒,软件自动关闭.

在form上添加一个timer控件，然后代码
Private Sub Form_Load()
Timer1 = True
End Sub

Private Sub Timer1_Timer()
End
End Sub
把timer1的interval属性调到10000（1万毫秒就是10秒）

Timer控件，触发时，call Unload ( me) : End

使用timer控件