How do I play a MIDI file

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:

Code:

---

  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

---