My God, Becky doesn't even post here anymore.
Const SND_SYNC = &H0
Const SND_ASYNC = &H1
Const SND_NODEFAULT = &H2
Const SND_MEMORY = &H4
Const SND_LOOP = &H8
Const SND_NOSTOP = &H10
Const SND_PURGE = &H40
Const SND_NOWAIT = &H2000
Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long
Const SND_ALIAS = &H10000
Const SND_FILENAME = &H20000
Const SND_RESOURCE = &H40004
Private Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
If waveOutGetNumDevs() <> 0 Then PlaySound sound, 0, SND_ASYNC
Private Declare Function GetAsyncKeyState Lib "user32" (ByVal vKey As Long) As Integer
If waveOutGetNumDevs() <> 0 And GetAsyncKeyState(38) Then PlaySound sound, 0, SND_ASYNC