RE:Incluir sonido en programas
En Vb Funciona, no se en Vba, lo mas seguro es que si
Option Explicit
Dim Sonido As Long
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Private Sub CommandSonar_Click()
Sonido = PlaySound("C:\WINDOWS\MEDIA\Logoff.wav", 0, &H1)
End Sub
Private Sub CommandDetener_Click()
Sonido = PlaySound("", 0, &H40)
End Sub
Solo tienes que cambiar la ruta de entrada al sonido que quieres activar
Saludos