Option Explicit Private Declare Function sndPlay lib "winmm.dll" Alias "sndPlaySoundA" _ (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Private Const SND_ASYNC = &H1 Private Const SND_SYNC = &H0 Private Const SND_LOOP = &H8 Private Const SND_NODEFAULT = &H1 Private Const SND_VALID = &H1F Private Const SND_MEMORY = &H4 Private Const SND_PURGE = &H40

قرار دادن کد پایین در یک Command Button

sndPlaySound App.Path & "Hello.wav", SND_ASYNC Or SND_NODEFAULT

منبع:www.cesblog.ir