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

名前

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

本文 歩いてる感じというのも、難しそうだけど こんなのとか。 Private Sub timer1_timer() Static bMoveImage As Boolean If bMoveImage = True Then Image1.Left = Image1.Left + 100 Else Image2.Left = Image2.Left + 100 End If bMoveImage = Not bMoveImage If Image1.Left > Form1.ScaleWidth And Image2.Left > Form1.ScaleWidth Then Form2.Show Form1.Hide Timer1.Enabled = False End If End Sub