用vb时钟控件实现文字“程序乐园欢迎你”流动显示

Private Sub Form_Load()
lable1.text="程序乐园欢迎你"
dim i
i=Form1.ScaleWeight/2
Timer1.Interval = 10000 '设定想要的时间,单位是"豪秒",这里是10秒'
End Sub
Private Sub Timer1_Timer()
Label1.Move i, (Form1.ScaleHeight - Label1.Height) / 2
i=i-1
End Sub