VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "移动字幕"
   ClientHeight    =   1170
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form1"
   ScaleHeight     =   1170
   ScaleWidth      =   4680
   StartUpPosition =   3  '窗口缺省
   Begin VB.Timer Timer1 
      Left            =   3150
      Top             =   345
   End
   Begin VB.Label Label1 
      Caption         =   "现在时间是："
      BeginProperty Font 
         Name            =   "幼圆"
         Size            =   15
         Charset         =   134
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   435
      Left            =   525
      TabIndex        =   0
      Top             =   420
      Width           =   3690
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim strTime As String
Dim ms As Integer
Private Sub Form_Load()
    Timer1.Interval = 100   '设置定时器间隔并启动定时器
    ms = 0
End Sub

Private Sub Timer1_Timer()
    
    strTime = Str(Time)     '获取系统时间并转化为字符串
    Label1.Caption = "现在时间是：" + strTime + "." + Str(ms)   '设置标签文字
    '下面的语句使标签能从右向左循环移动
    If Label1.Left >= -Label1.Width Then
        Label1.Left = Label1.Left - 20
    Else
        Label1.Left = Form1.Width
    End If
    
    If ms < 9 Then
        ms = ms + 1
    Else
        ms = 0
    End If
        
End Sub
