How to play wav file on clicking on a picture

[RhinoBull]

I had PlaySound snippet handy so here we go:

Option Explicit

Private Const SND_FILENAME = &H20000
Private Const SND_ASYNC = &H1

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
    (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Picture1_Click()
    PlaySound "C:\Windows\Media\ding.wav", ByVal 0&, SND_FILENAME Or SND_ASYNC
End Sub