【实例说明】
    在电视节目中，经常会有滚动的广告字幕。如何在程序中实现滚动字幕的效果呢？本例将讲解实现该功能的方法。运行程序，单击“演示开始”按钮，字幕开始水平滚动；单击“暂停”按钮，字幕停止滚动。

【编程思路】
    在Timer事件过程中，控制Label控件的Left属性值，从而实现滚动字幕的效果。

【设计步骤】
    1.新建一个标准工程，创建一个新窗体，默认名为Form1。
    2.在Form1窗体中放置一个Timer控件（它的Interval属性值设置为100）、一个Label控件、三个Command控件。

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


'开始演示
Private Sub Command1_Click()
        Me.Timer1.Enabled = True
End Sub

'暂停演示
Private Sub Command2_Click()
        Me.Timer1.Enabled = False
End Sub

'退出
Private Sub Command3_Click()
        End
End Sub

'初始化
Private Sub Form_Load()
        Me.Width = 4800
        Me.Label1.Left = 150
End Sub

Private Sub Timer1_Timer()
        '滚动
        If Me.Label1.Left < 4700 Then
                Me.Label1.Left = Me.Label1.Left + 100
        Else
                Me.Label1.Left = -Me.Label1.Width
        End If

        '颜色变化
        If Me.Label1.ForeColor = &HFF0000 Then
                Me.Label1.ForeColor = &HFF&
        Else
                Me.Label1.ForeColor = &HFF0000
        End If
End Sub