WAV dosyaları için function

Option Compare Database

 Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _

    (ByVal filename As String, ByVal snd_async As Long) As Long

  Function PlaySound(sWavFile As String)

    ' Purpose:  Plays a sound.

    ' Argument: the full path and file name.

    If apisndPlaySound(sWavFile, 1) = 0 Then

        MsgBox "The Sound Did Not Play!"

    End If

  End Function

Kullanımı :
PlaySound "çalınacakdosyanınyoluveadı"

Kolay gelsin