【实例说明】
    Windows任务栏上的时间看上去很单调，看不到每秒的变化。本例将讲解如何实现一个可以看到每秒变化的数字钟。运行程序，在窗体上显示时间变化。

【编程思路】
    运行Format函数将日期分别格式化为小时、分钟、秒。在Timer事件中，显示时间每秒的变化。下面是Format函数的功能、语法及参数：
    Format函数功能：返回Variant(String)，其中含有一个表达式，它是根据格式表达式中的指令来格式化的。
    （1）语法：Format(expression[,format[,firstdayofweek[,firstweekofyear]]])
    （2）参数：
    expression必要参数。任何有效的表达式。
    format可选参数。有效的命名表达式或用户自定义格式表达式。
    firstdayofweek可选参数。常数，表示一星期的第一天。
    firstweekofyear可选参数。常数，表示一年的第一周。
    （3）说明：
    数字：使用预先定义的命名数值式或创建用户自定义数值格式。
    日期和时间：使用预先定义的命名日期/时间格式或创建用户自定义日期/时间格式。
    日期和时间序数：使用日期和时间格式或数值格式。
    字符串：创建自定义的字符串格式。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在窗体上放置四个Label控件、一个Timer控件。

    3.源程序  [素材源程序下载]


Private Sub Form_Load()
        '显示小时
        Me.Label1.Caption = Format(Hour(Time), "00") & ":"
        '显示分钟
        Me.Label2.Caption = Format(Minute(Time), "00") & ":"
        '显示秒
        Me.Label3.Caption = Format(Second(Time), "00")
        '全部显示
        Me.Label4.Caption = Time
End Sub

Private Sub Timer1_Timer()
        '显示小时
        Me.Label1.Caption = Format(Hour(Time), "00") & ":"
        '显示分钟
        Me.Label2.Caption = Format(Minute(Time), "00") & ":"
        '显示秒
        Me.Label3.Caption = Format(Second(Time), "00")
        '全部显示
        Me.Label4.Caption = Time
End Sub