Şimdi bir çok programda bir olay gerçekleştiğinde küçük sesler duyuluyor. Eğer sizde böyle bir şey yapmak için sisteminizde ses kartı olup olmadığını öğrenmek istiyorsanız aşağıdaki kodu kullanabilirsiniz. Denemek için aşağıdaki kodu bir Modulenin içine kopyalayın.:

    Declare Function waveOutGetNumDevs Lib "winmm.dll" Alias "waveOutGetNumDevs" () As Long

    Dim i As Integer
    i = waveOutGetNumDevs()
    If i > 0 Then
        MsgBox "Your system supports a sound card.", vbInformation, "Sound Test"
    Else
        MsgBox "Your system cannot play Sound Blaster Files.", vbInformation, "Sound Test"
    End If