Cet API est un API assez serviable, en effet, il sert à jouer un son sans être obligé pour cela de recourir à un contrôle spécial, de plus, il s'utilise très facilement !!! Commencez par déclarer l'API SndPlaySound :

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

Déclaration privée ( Private ) d'une fonction ( Function ) appelée sndPlaySound ( sndPlaySound ) se trouvant dans la bibliothèque winmm.dll ( Lib "winmm.dll" ), avec comme alias sndPlaySoundA ( Alias "sndPlaySoundA" ), avec comme argument lpszSoundName étant une chaîne de caractère et uFlags étant du type Long ( (ByVal lpszSoundName As String, ByVal uFlags As Long) ), cette fonction renvoye un entier long ( As Long ). Insérez 2 CommandButton sur votre feuille, l'un avec la propriété Caption sur "Jouer" et l'autre sur "Quitter". Double-cliquez sur le bouton Quitter et tapez :

End

Pour terminer l'application si ce bouton a été cliqué ! Double-cliquez maintenant sur le bouton Jouer et tapez :

sndPlaySound "c:winntmediastart.wev", 0

Cetet fonction sert à jouer le son c:winntmediastart.wav. Si vous n'avez pas Windows2000, MON programme ne marchera pas car votre dossier windows est c:windows et non c:winnt. Cependant il vous suffit de changer le chemin d'accès pour jouer un autre son ! 0 pour l'argument uFlags, désigne que nous n'insérons pas d'autres fonctions que la lecture !