How do I play Midi file ???

[WylerWolf]

How do I play Midi file ???
Can someone help me ???

To play MIDI files:

#If Win32 Then 

   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

   #ElseIf Win16 Then

   Private Declare Function mciSendString Lib "mmsystem" (ByVal _
   lpstrCommand As String, ByVal lpstrReturnStr As Any, ByVal _
   wReturnLen As Integer, ByVal hCallBack As Integer) As Long

   #End If




   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