ねろさんのをやってみたのですが元は
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
で、Form_Loadだとだめだったのですがこの場合はどうなりますか?
ん 質問の意味がわからないよ
すいません解決しました
ネタ元のご案内。
http://www.takeittechies.com/vbtomo/boards/vbqanda.php?do=spread&num=8203
ツイート | ![]() |