Изменение громкость

[Sebas]

Как можно изменить громкость

Скажу честно, у меня даже пример был.... да сплыл(((

[ShadowCaster]

В форме (можно и в модуль - переделав):

Private Declare Function waveOutSetVolume Lib "Winmm" (ByVal wDeviceID As Integer, ByVal dwVolume As Long) As Integer

Sub SetVol(ByVal leftCh as Long, ByVal rightCh as Long)
waveOutSetVolume 0, (leftCh*65536 + rightCh) ' Возможно и наоборот
End Sub

Сиё установит громкость для первой звуковухи системы (соответственно 1, 2, и т.д. установят для последующих)