Option Compare Database
Option Explicit
Declare Function PlaySound Lib "winmm.dll" _
Alias "PlaySoundA" ( _
ByVal lpszName As String, _
ByVal hModule As Long, _
ByVal dwFlags As Long) As Long
Function PlayWav()
Call PlaySound("C:\WINDOWS\Media\chimes.wav", 0&, &H1 Or &H20000)
End Function
|