通過引發 Timer 事件，Timer 控件可以有規律地隔壹段時間執行壹次代碼。
語法
Timer
說明
Timer 控件用於背景進程中，它是不可見的
************************以下是他的屬性****************
Enabled 屬性
返回或設置壹個值，該值用來確定壹個窗體或控件是否能夠對用戶產生的事件作出反應。
語法
object.Enabled [= boolean]
Enabled 屬性的語法包含下面部分：
部分 描述
object 對象表達式，其值是“應用於”列表中的壹個對象。如果 object 被省略，則與活動窗體模塊相聯系的窗體被認為是 object。
boolean 壹個用來指定 object 是否能夠對用戶產生的事件作出反應的布爾表達式。
設置
boolean 的設置為：
設置 描述
True （缺省）允許 object 對事件作出反應。
False 阻止 object 對事件作出反應。
Enabled 屬性示例
該例子使壹個 CommandButton 控件有效而不管 TextBox 控件是否包含文本。要試用此例，先將下面的代碼粘貼到帶有 CommandButton 和 TextBox 控件的壹個窗體的聲明部分，然後按下 F5 鍵並在文本框中隨意輸入壹些內容。
Private Sub Form_Load ()
Text1.Text = "" ' 清除文本框的內容。
Command1.Caption = "Save" ' 在按鈕上放置標題。
End Sub
Private Sub Text1_Change ()
If Text1.Text = "" Then '查看文本框是否為空。
Command1.Enabled = False '使按鈕無效。
Else
Command1.Enabled = True '使按鈕有效。
End If
End Sub
Interval 屬性
返回或設置對 Timer 控件的計時事件各調用間的毫秒數。
語法
object.Interval [= milliseconds]
Interval 屬性語法有以下組成部分：
部分 描述
object 對象表達式，其值是“應用於”列表中的壹個對象。
milliseconds 數值表達式，指定毫秒數，“設置值”中有詳細說明，。
設置值
milliseconds 的設置值為：
設置值 描述
0 （缺省值）使 Timer 控件無效。
1 to 65,535 設置的時間間隔（以毫秒計），在 Timer 控件 Enabled 屬性設置為 True 時開始有效，例如，10，000 毫秒等於 10 秒。最大值為 65，535 毫秒，等於 1 分鐘多壹些。
說明
可以在設計時或在運行時設置 Timer 控件的 Interval 屬性。使用 Interval 屬性時，請記住：
Timer 控件的 Enabled 屬性決定該控件是否對時間的推移做響應。將Enabled 設置為 False 會關閉 Timer 控件，設置為 True 則打開它。當 Timer 控件置為有效時，倒計時總是從其 Interval 屬性的設置值開始。
創建 Timer 事件程序用以告訴 Visual Basic 在每次 Interval 到時該做什麽。
Interval 屬性示例
這個例子可以調整窗體切換顏色的速度。要嘗試這個例子，請將代碼粘貼到包含 Timer 控件、HScrollBar 控件（水平滾動條）和 PictureBox 控件的窗體的聲明部分，然後按 F5 鍵並單擊滾動條。
Private Sub Form_Load ()
Timer1.Interval = 900 ' 設置時間間隔。
HScroll1.Min = 100 ' 設置最小值。
HScroll1.Max = 900 ' 設置最大值。
End Sub
Private Sub HScroll1_Change ()
' 根據滾動條的數值設置時間間隔。
Timer1.Interval = 1000 - HScroll1.Value
End Sub
Private Sub Timer1_Timer ()
' 在紅色和藍色之間切換背景色。
If Picture1.BackColor = RGB(255, 0, 0) Then
Picture1.BackColor = RGB(0, 0, 255)
Else
Picture1.BackColor = RGB(255, 0, 0)
End If
End Sub