vb 改变字体的位置

一个上下左右移动的例子

花了一些时间来做了一个上下左右移动的例子
包括四个标签控件,和一个时间控件

'把以下的代码另存为一个FORM1.FRM的文件
(先新建一个文本文档,保存后改名字即可)
'代码开始

VERSION 5.00
Begin VB.Form Form1
BackColor = &H00000000&
BorderStyle = 1 'Fixed Single
Caption = "字体上下左右来回移动的动画"
ClientHeight = 5490
ClientLeft = 45
ClientTop = 435
ClientWidth = 7605
LinkTopic = "Form1"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 5490
ScaleWidth = 7605
StartUpPosition = 3 '窗口缺省
Begin VB.Timer Timer1
Left = 7020
Top = 4980
End
Begin VB.Label Label4
AutoSize = -1 'True
BackStyle = 0 'Transparent
Caption = "字体左右来回移动"
ForeColor = &H00FFFF00&
Height = 180
Left = 6180
TabIndex = 3
Top = 3720
Width = 1440
End
Begin VB.Label Label3
AutoSize = -1 'True
Back