Formulario com Botões para reproduzir Som

Administrador escreveu:Option Explicit
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

Function Playsound(sWavFile As String)
If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "Musica não encontrada!"
End If
End Function

No evento ao abrir do form:

Private Sub Form_Open(Cancel As Integer)
Playsound ("C:\WINDOWS\Media\Windows Logon Sound.wav")
End Sub

creio que possa substituir abrir formulário pelo acionamento do botão.