Thanks ....that did it.
Option Explicit
Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA"
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Private Sub Command1_Click()
Dim retval As Variant
retval = sndPlaySound(vbNullString, &H1)
End Sub
Still learning ...thanks again
Gene
Quote:
> I've declared the PlaySound function and it works fine. Anyone know the
> best way to STOP the sound? I tried setting the retval of that function
to
> null but that doesn't work.
> Thanks