VBA/Excel/Access/Word/Windows API/Sound

Get return value from sound play function

   <source lang="vb">

Private Declare Function sndPlaySound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long Sub playSound()

   Dim returnVal As Long
   returnVal = sndPlaySound("C:\myWave.wav", 0)

End Sub

</source>
   
  

Makes a sound using the computer"s built-in speaker.

   <source lang="vb">

Private Sub ge()

    Beep

End Sub

</source>