' Sätt volymen på enhet #0 till 50% av maxvolymen.
' Notera att vi inte bryr oss om det kan vara olika volymer i olika kanaler. Går det inte så ignoneras den extra datan.
Dim retval As Long ' return value

' Ta reda på att enhet #0 verkligen finns
retval = waveOutGetNumDevs() ' hitta nummer på enhet
If retval >= 1 Then ' det finns minst en alltså finns enhet #0
' Sätt volymen för alla kanaler till &H7FFF, alltså 50%
retval = waveOutSetVolume(0, &H7FFF7FFF) ' för båda kanalerna, om det är nödvändigt
End If