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

名前

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

本文 今は Private Sub timer1_timer() Image1.Left = Image1.Left + 100 Image2.Left = Image2.Left + 100 If Image1.Left > Form1.ScaleWidth And Image2.Left > Form1.ScaleWidth Then Form2.Show Form1.Hide Timer1.Enabled = False End If End Sub Private Sub Form_Load() MMControl1.DeviceType = "Sequencer" MMControl1.Command = "Open" MMControl1.Command = "play" End Sub Private Sub Form_Unload(Cancel As Integer) MMControl1.Command = "Close" End Sub このようになっています