如题
希望各位高手能指点一下
谢谢

Private Sub Form_Load()
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub

用timer控件

Private Sub Form_Load()
Timer1.Interval = 10000
End Sub

Private Sub Timer1_Timer()
Unload Me
End Sub
顶~~~~~~~~~~~~~~~楼上
也可以这样
Private Sub Form_Load()
Timer1.Interval = 1000
Private Sub Timer1_Timer()
dim a as Static
a=a+1
if a=10 then
Unload Me
End if
End Sub

我丢了个End Sub

谢谢!
谢谢!!