如何使用vb的timer做一個…

Question

例如我用vb畫一個圓
然後要如何用timer讓這個圓
可以一直從左邊跑到右邊，
到了右邊的盡頭，
然後又跳回左邊…一直重複。
如果可以的話請加注解。3q

TO W.J.S大大：
雖說是圓心座標但有點不太懂這一列是什麼意思說!!
x = 500: y = Me.ScaleHeight \ 2

最後一個問題，為什麼要重畫圓呢??
Cls '重繪
Me.Circle (x, y), r, vbRed '畫圓

Answer 1

Dim r&, x&, y&, s&Private Sub Form_Load()Timer1.Interval = 50r = 500 '半徑s = 100 '移動長度x = 500: y = Me.ScaleHeight \ 2 '圓心座標End SubPrivate Sub Timer1_Timer()If x + r + s < Me.ScaleWidth Then 'x座標+半徑+移動長度還沒碰到最右邊時直接移動s距離   x = x + sElseIf x + r >= Me.ScaleWidth Then 'x座標+半徑超過最右邊時回到最左邊   x = rElseIf x + r + s > Me.ScaleWidth Then 'x座標+半徑+移動長度超過最右邊時只移動剩餘的距離   x = Me.ScaleWidth - rEnd IfCls '重繪Me.Circle (x, y), r, vbRed '畫圓End Sub

2006-03-25 22:48:16 補充：
座標x=500,y=表單工作區的高度\2

2006-03-27 16:49:55 補充：
若不重繪的話原先畫的圓就繼續保持在畫面上,你想這還會有動畫的效果嗎?^^