CodeItBetter Programming Another VB Programming Blog

'MultiMedia - How to check whether your system can play Sound files

Option Explicit
 
Declare Function waveOutGetNumDevs Lib "winmm.dll" () As Long
 
Public Sub CheckSound()
    Dim I As Integer
    I = waveOutGetNumDevs()
    If I > 0 Then
        MsgBox "Your system can play sound files."
    Else
        MsgBox "Your system can not play sound files."
    End If
End Sub