help:Play Midi Problems

[Not2BeTrusted2]

ohh thank u but that code wit it kind of lags

Code:

Public Sub PlayMidi(Song As String)
Dim i As Long
    i = mciSendString("close all", 0, 0, 0)
    i = mciSendString("open """ & App.Path & "\Music\" & Song & """ type sequencer alias background", 0, 0, 0)
    i = mciSendString("play background notify", 0&, 0, frmMirage.hwnd)
End Sub

and for the other guy above that code wit the mid1 instead of background yes i get that code and i would like to get the loop