Срочно нужна помощь! - VB

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

Как мне проиграть Beep через системный динамик?в VBA
например в VBA.NET:

Form1

      Form1_Load( sender  System.,  e  System.EventArgs)  .Load
        Console.()

Решение задачи: «Срочно нужна помощь!»

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="00AA00">'dwFred - частота звука</font>
<font color="00AA00">'dwDuration - продолжительность сигнала в милисекундах</font>

<font color="blue">Private</font> <font color="blue">Sub</font> Form_Load()
<font color="00AA00">'Генерируем звук</font>
<font color="blue">Beep</font> <font color="darkblue"><b>2000</b></font>, <font color="darkblue"><b>100</b></font>
<font color="blue">End</font> <font color="blue">Sub</font>

                        