Регуляция громкости функцией mciSendString - VB

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

Здравствуйте, когда то помню мне скинули следующий архив, в котором лежал почти настоящий mpeg плеер. Там с помощью арі mciSendString можно было пользоваться перемоткой, остановкой и т.д Не хватает одного - регуляции громкости. Вопрос: может ли данная арі это исправить? Заранее благодарен

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

textual
                            Листинг программы 
                        
 
                            
                        
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndCallback As Long) As Long
 
Private Sub Open_Click()
'поддержка полного пути файла, без коротких имен (!):
mciSendString "open " & Chr$(34) & ActivePresentation.Path & "\File.mp3" & Chr$(34) & " alias myfile", 0&, 0&, 0&
mciSendString "play myfile", 0&, 0&, 0&
'mciSendString "play myfile repeat from 0 to 2000", 0&, 0&, 0& 'повторение от 0 до 2 сек
End Sub
 
Private Sub Close_Click()
mciSendString "close myfile", 0&, 0&, 0&
End Sub
 
Private Sub Volume_Click()
mciSendString "setaudio myfile volume to 1000", 0&, 0&, 0& '1000-макс громкость
End Sub
 
Private Sub Speed_Click()
mciSendString "set myfile speed 1000", 0&, 0&, 0& '1000-стандартная скорость
End Sub
 
Private Sub Pause_Click()
mciSendString "pause myfile", 0&, 0&, 0&
End Sub
 
Private Sub Resume_Click()
mciSendString "resume myfile", 0&, 0&, 0&
End Sub