用vosual basic编移动的东西（例如把一个label在一段时间内从左边移动到右边）

Private Sub Form_Load()
Label1.AutoSize = True
Label1.AutoSize = False
Label1.Left = -Label1.Width
Timer1.Interval = 100
End Sub

Private Sub Timer1_Timer()
Label1.Left = Label1.Left + 15 '//每0.1秒移动一象素
If Label1.Left >= Me.Width Then Label1.Left = -Label1.Width'//移动到右边后回到左边重新开始
End Sub

用timer控件改变
label的left和top属性