Option Explicit
Private mfilename As String
Private mflags As Long
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Property Get filename() As String
filename = mfilename
End Property
Public Property Let filename(ByVal vnewvalue As String)
mfilename = vnewvalue
End Property
Public Property Get flags() As Long
flags = mflags
End Property
Public Property Let flags(ByVal vnewvalue As Long)
mflags = vnewvalue
End Property
Public Sub play()
Dim rc As Long
rc = sndPlaySound(mfilename, mflags)
End Sub