A lot of programs are now playing sounds for certain events.   However, there is no point in wasting time by playing a sound if the system does not support it.  This tip demonstrates how to detect if a sound card exists. Declarations Add the following code to the declarations section of the project. Declare Function waveOutGetNumDevs Lib "winmm.dll" _ Alias "waveOutGetNumDevs" () As Long             Code Dim i As Integer i = waveOutGetNumDevs() If i > 0 Then MsgBox "Your system can play sound files.", _ vbInformation, "Sound Card Test" Else MsgBox "Your system can not play sound Files.", _ vbInformation, "Sound Card Test" End If