I know how to play WAV files from here.. But how can I play the MIDI files too?

Thank you in advance for your help.



*** This is what I am using rightnow for the WAVES ***


Public Sub PlayWavResource(pintResourceID As Integer)

Private Declare Function sndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

Private Const SND_ASYNC = &H1 ' Play asynchronously

Private Const SND_NODEFAULT = &H2 ' Don't use default sound

Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file

'Usage: PlayWavResource ResourceID
'Example: Call PlayWavResource(101)

Dim retVal As Long
Dim SoundBuffer As String
SoundBuffer = StrConv(LoadResData(pintResourceID, "CUSTOM"), vbUnicode)
retVal = sndplaysound(SoundBuffer, SND_ASYNC Or SND_NODEFAULT Or SND_MEMORY)

End Sub