Private Declare Function waveOutGetNumDevs Lib "winmm" () As Long

Dim i As Long

i = waveOutGetNumDevs()

If i > 0 Then
MsgBox "Bilgisayarınızın ses kartını var"
Else
MsgBox "Bilgisayarınızın ses kartını yok veya yüklenmemiş"
End If

Altın harflerle yaz mahlasımı. halvetim kasvet, kem gözlere şiş!... Cadü ya herru!...ya merru!...kafkef, gölge harâmilerine bir selam çak!... Abile ğatladı, demlenir simam, nüşinrevan'dan handan ummam ben. Ahu-yi felek mum, ben şamdan. düşmez kalkmaz bir Allah'tır uyan!...