Public Function SoundCardExists() As Boolean
' denna funktionen returnerar True om det finns ett ljudkort
Dim i As Integer
i = auxGetNumDevs()
If i <> 0 Then ' Det finns minst ett kort
SoundCardExists = True
Else ' auxGetNumDevs returnerar 0 om inget finns
SoundCardExists = False
End If
End Function