Beep в Vista - VB

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

В Vista не работает Beep. В настройках написано, что "PC Beep - вкл".
Главное, что боле и не нужно. Работа на ноуте, VBA. Системный динамик, ясно дело, отсутствует. Как бы этот Beep вернуть к жизни?
Ну, допустим, не вернули. А как воспроизвести в фоновом режиме звуковые файлы, чтобы ничего не открывалось. Раньше был объект - Sound.... В 2007 VBA Екселе его нет. И чего теперь делать со звуком.

Решение задачи: «Beep в Vista»

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

                            <font color="blue">Private</font> <font color="blue">Declare</font> <font color="blue">Function</font> <font color="blue">Beep</font> Lib <font color="teal">"kernel32"</font> (<font color="blue">ByVal</font> dwFreq <font color="blue">As</font> <font color="blue">Long</font>, <font color="blue">ByVal</font> dwDuration <font color="blue">As</font> <font color="blue">Long</font>) <font color="blue">As</font> <font color="blue">Long</font>
<font color="blue">Sub</font> aa()
<font color="blue">Beep</font> <font color="darkblue"><b>400</b></font>, <font color="darkblue"><b>500</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>
                        