一個文本控件text1顯示倒計時 一個定時器控件定時，一個按鈕控件觸發倒計時事件Dim i As Integer '全局變量Private Sub Command1_Click() Text1.Text = 10 '文本初始值10 Timer1.Enabled = True '開定時器 Timer1.Interval = 1000 'MS單位 i = 10 ' i賦初始值End SubPrivate Sub Form_Load() Text1.Text = "" '文本初始值空值End SubPrivate Sub Timer1_Timer() i = i - 1 '每到1s響應定時器，響應次數+1 Text1.Text = i If i = 0 Then Timer1.Enabled = False '關定時器 End IfEnd Sub