How do I play a MIDI file

[Beres]

I want to know what code to type in FrmBajent_Load inorder to play an Midi file. Please be specific...I have little knowledge...thanks

Here is how to play a MIDI file:

   Private Declare Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal  _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long

   Private Sub Command1_Click()
   Dim ret As Integer

   ' The following will open the sequencer with the C:\WIN31\CANYON.MID
   ' file. Canyon is the device_id.

   ret = mciSendString("open c:\windows\CANYON.MID _
   type sequencer alias canyon", 0&, 0, 0)

   ' The wait tells the MCI command to complete before returning control
   ' to the application.

   ret = mciSendString("play canyon wait", 0&, 0, 0)

   ' Close CANYON.MID file and sequencer device

   ret = mciSendString("close canyon", 0&, 0, 0)

   End Sub