Регулирование громкости звукового файла - VB

Формулировка задачи:

В ресурсы помещён звуковой *.wav-файл. При помощи функции

sndPlaySound

из библиотеки

winmm.dll

этот файл проигрывается.

Вопрос

: Как увеличить/уменьшить громкость звука при воспроизведении. Для этой цели хотелось бы использовать Slider(ползунок).

Решение задачи: «Регулирование громкости звукового файла»

textual
                            Листинг программы 
                        

                               Declare Function waveoutSetVolume Lib "mmsystem.dll"
      (ByVal wDeviceID As Integer, ByVal dwVolumeRight As Integer,
      ByVal dwVolumeLeft As Integer) As Integer
   Declare Function waveOutGetVolume Lib "MMSYSTEM.DLL"
      (ByVal wDeviceID As Integer, lpdwvolume As Long) As Integer
                        