キャラクターに動きはつけれますか？ (ID:88205)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Const pi = 3.14159265358979 r = 1000 For i = 0 To 360 sTime = Timer Do Until Timer - sTime > 1 DoEvents Loop Picture1.Left = r * Cos(i * pi / 180) + (Me.ScaleWidth - Picture1.Width) \ 2 Picture1.Top = r * Sin(i * pi / 180) + (Me.ScaleHeight - Picture1.Height) \ 2 Next i はどこにいれたらよいのでしょうか・・・ 歩いてる感じにできますか？