Private?Sub?form_load()
Label1.AutoSize?=?True:?Timer1.Interval?=?50
每次移距?=?200:?Timer1.Enabled?=?True
End?Sub
Private?Sub?timer1_timer()
路程總長?=?Me.ScaleWidth
If?Label1.Left?>=?路程總長?Or?Label1.Left?<=?-Label1.Width?Then
每次移距?=?-(每次移距)?'往返移動End?If
Label1.Left?=?Label1.Left?+?每次移距
End?Sub
'如果Label1的Left超出[路程總長],那麽?Label1就往左Or
'如果Label1的Left少於[-Label1的寬度],那麽?Label1就往右
'[Or]兩邊的表達式只有其中有壹個成立?就返回並‘向下’繼續執行。