Proyecto Sonidos

En programación se puede utilizar archivos con extensión MP3 para agregar Sonido a nuestro programa. ejemplo:

Debe copiar el siguiente código a su formulario.
'Este código se escribe al comienzo

Option Explicit
'Función Api mciExecute para reproducir los archivos de música
Private Declare Function mciExecute Lib "winmm.dll" (ByVal lpstrCommand As String) As Long

Private Sub Image1_Click()
 With ActiveWorkbook
      mciExecute "play " + .Path + "\Caballo.mp3"
 End With
End Sub

Private Sub Image2_Click()
   With ActiveWorkbook
      mciExecute "play " + .Path + "\Cabra.mp3"
   End With
End Sub

Private Sub Image3_Click()
   With ActiveWorkbook
      mciExecute "play " + .Path + "\Conejo.mp3"
   End With
End Sub

Private Sub Image4_Click()
   With ActiveWorkbook
      mciExecute "play " + .Path + "\Gallina.mp3"
   End With
End Sub

Tenga en cuenta:
Los archivos de sonido MP3 deben estar grabados en la misma carpeta del proyecto o no se podrán escuchar en el programa.