[此贴子已经被作者于2017-3-9 20:57编辑过]

程序代码：

Dim X As Integer    '变量X应该是模块级变量，在通用部分定义

Private Sub Form_Load()
Timer1.Enabled = True   '在 Form_Load 事件中设置 Timer1 控件的必要属性，Timer1.Enabled = True 是立即计时
Timer1.Interval = 1000    '计时时间设置为1秒
End Sub

Private Sub Timer1_Timer()
X = X + 1   '每1秒增加1，用于计时
Label1.Caption = X    '这个标签可以显示已经计时的秒数。
If X >= 10 Then Unload Form1    '在计时达到10秒，关闭窗体，如果要关闭程序，将 Unload Form1 修改为 End 即可
End Sub

[此贴子已经被作者于2017-3-9 20:57编辑过]