Windows sound

[DaoK]

I am sure than is possible to change the sound without having the big sound panel ( see screenshot below). Like, I just want to make a scroll bar and change it in my app or something like that.

[chrisjk]

This will change the WAVE output volume if that's any good.

Requires a textbox. Pu a value in it between 0 and 65535, and click the button. Should be easy to modify into a slider.

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer
 
Private Sub Command1_Click()
 
Dim a, i As Long
Dim tmp, vol As String
vol = Text1
tmp = Right((Hex$(vol + 65536)), 4)
vol = CLng("&H" & tmp & tmp)
a = waveOutSetVolume(0, vol)
 
End Sub