مشکل با Multi Media Control

[alivbasic]

سلام دوستان

فرض کنید من در پوشه کنار فایل اجرایی برنامم 2 تا فایل صوتی به نام :

sound1.wav
sound2.wav

دارم حالا میخوام موقه اجرای برنامه با زدن یک دکمه اول فایل sound1.wav پخش بشه بعد که کاملان تموم شد فایل بعدی یعنی sound2.wav پخش بشه این کد هم نوشتم اما هر کاری میکنم هر دوتا با هم پخش میشن .



Private Sub command1_Click()
player.Command = "Close"
player.FileName = App.Path & "\test\sound1.wav"
player.Command = "Open"
player.Command = "Play"
player.Command = "Close"
player.FileName = App.Path & "\test\sound2.wav"
player.Command = "Open"
player.Command = "Play"
End Sub


من با این کنترل اصلان کار نکردم واقان ممنون میشم اگه راهنماییم کنید .

[returnx]

شما باید mode مولتی مدیا رو باید ببینید اگه فایل اول پخش شده بود و حالا mode برابر با Stop بود انوقت اهنگ دوم رو پخش کنید با این کد:

If mm.Mode = 2 Then
mm.FileName = sound2
mm.Command = "open"
mm.Command = "play"
End If