MULTIMÉDIA CONTROL

Donc, placez le tout d'abord sur votre form (MCI32.ocx)
Puis rajoutez cette procédure:

--------------------------------------------------
Sub Musique(Chemin As String)
 Dim TypeDeFichier As String
 Dim Extension As String

 Extension = LCase(Right(Chemin, 3))

 Select Case Extension
  Case "mid", "rmi"
   TypeDeFichier = "sequencer"
  Case "wav"
   TypeDeFichier = "waveaudio"
  Case "avi"
   TypeDeFichier = "avivideo"
  Case "mp3", "aif", "peg", "mpg", ".au"
   TypeDeFichier = "mepgvideo"
  Case "mov", "jpg", "pic"
   TypeDeFichier = "QTWVideo"
 End Select

 'ETC.........

 MCI.Command = "close"         'Précaution
 'Spécifie quel type de fichier il va ouvrir:
 MCI.DeviceType = TypeDeFichier
 'spécifie le chemin du fichier à ouvrir:
 MCI.filename = Chemin         
 MCI.Command = "open"          'Ouvre le fichier
 MCI.Command = "play"          'Joue le fichier

End Sub

--------------------------------------------------
Pour ouvrir un fichier multimédia et le jouer, il ne vous reste plus qu'à appeller la procédure en spécifiant le chemin du fichier à ouvrir

Ex, dans un bouton:

--------------------------------------------------
Private Sub Command1_Click()
Musique("C:\Boum.mid")
End Sub
--------------------------------------------------

Voilà, c'est tout!!!