Private Sub Command1_Click()
Dim i As Integer
i = waveOutGetNumDevs()
If i > 0 Then
MsgBox "Ditt system kan spela ljudfiler.", _
vbInformation, "Ljudkorts Test"
Else
MsgBox "Ditt system kan inte spela ljudfiler.", _
vbInformation, "Ljudkorts Test"
End If
End Sub