Visual Basic程序设计基础》-杨小影-源代码

				VERSION 5.00
				Begin VB.Form Form1 
				   BackColor       =   &H00FFC0C0&
				   Caption         =   "我的第一个程序"
				   ClientHeight    =   3150
				   ClientLeft      =   60
				   ClientTop       =   390
				   ClientWidth     =   4680
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3150
				   ScaleWidth      =   4680
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.Timer Timer1 
				      Interval        =   100
				      Left            =   1740
				      Top             =   1335
				   End
				   Begin VB.Label Label1 
				      AutoSize        =   -1  'True
				      BackStyle       =   0  'Transparent
				      Caption         =   "欢迎进入奇妙的VB世界！"
				      BeginProperty Font 
				         Name            =   "隶书"
				         Size            =   14.25
				         Charset         =   134
				         Weight          =   700
				         Underline       =   0   'False
				         Italic          =   0   'False
				         Strikethrough   =   0   'False
				      EndProperty
				      ForeColor       =   &H008080FF&
				      Height          =   285
				      Left            =   1425
				      TabIndex        =   0
				      Top             =   1275
				      Width           =   3480
				   End
				End
				Attribute VB_Name = "Form1"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				Option Explicit
				
				Private Sub Timer1_Timer()
				Label1.Move Label1.Left - 20
				If Label1.Left + Label1.Width 				Label1.Left = Form1.Width
				End If
				End Sub