VB6.0 :: PROGRAM MENDETEKSI SUARA DI DALAM PC ANDA

Private Sub Form_Load()
Dim I As Integer
I = waveOutGetNumDevs()
If  I > 0 Then
MsgBox "Sistem Komputer Kamu Saat Ini Senang Memutar Lagu."
Else
MsgBox "Sistem Komputer Kamu Saat Ini Tidak Memutar Lagu."
End If
End Sub