Option Explicit Dim n As Integer Private Sub Form_Load() n = 72 Timer1.Interval = 1000 Label1.Caption = String(n, " ") & Label1.Caption End Sub Private Sub Timer1_Timer() n = n - 1 Label1.Caption = Right(Label1.Caption, n) End Sub for的不会 窗体上 一个 标签 一个计时器
