MMControlのNotifyプロパティを使って連続再生するには？

しゅう 2002-06-23 03:13:07 No: 104434

はじめて書かせていただきます。
まったくの初心者なのでよろしくお願いします。
MMControlを用いて、MIDIファイルの連続再生をさせようとしています。

Private Sub MMControl1_Done(mciSuccessful As Integer)
(途中略)
        MMControl1.FileName = "C:\xxx\xxx\& Level & ".mid"
        MMControl1.Command = "Open"

        MMControl1.Notify = True
        MMControl1.Command = "Play"
End Sub

という形で、一定条件を満たすと変数Levelの値が増え、
曲再生が最後まで終わったら次にLevel.midを再生する
(レベルがそのままなら同じ曲を、レベルが上がったなら別の曲を再生する)
というスクリプトを書いてみたのですが、
Levelが増えていたときは問題なく再生されるのですが、
同じ曲を再生させたい時に、無限ループに突入してしまいます。
調べてみたところ、同じ曲を一度再生させているのですが、
すぐになぜか停止してしまい再びMMControl1_Doneに入ってしまう、
ということになっているようです。
Load時の最初の曲再生と、このMMControl1_Doneの関数以外では
MMControlは全くいじっていません。
どこを直せばいいのか全く見当がつきません。
御指導をよろしくお願いします！