Как регулировать громкость звука на компе??

[Fedorfx]

Собственно сабж.
Как регулировать громкость звука на компе??
Хочу чтобы различные файлы имели различную громкость при воспроизведении.

[Sebas]

так же как в VB6

выдрал из 6

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


Private Sub SetVolume(Level As Long)
On Error Resume Next
If Level > 32767 Then
Level = Level - 65535
End If

waveOutSetVolume 0, (Level * 65536 + Level)
End Sub