Option Compare Database
Option Explicit


'Error-handler inserted on  29 . 03 . 2004  at  09 : 52  by Mike

Declare Function Beep& Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long)

Declare Function Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

Const noteA0 =  110 
Const noteAd0 =  116 
Const noteH0 =  123 
Const noteC1 =  130 
Const noteCd1 =  138 
Const noteD1 =  146 
Const noteDd1 =  155 
Const noteE1 =  164 
Const noteF1 =  174 
Const noteFd1 =  184 
Const noteG1 =  195 
Const noteGd1 =  207 
Const noteA1 =  220 
Const noteAd1 =  234 
Const noteH1 =  249 
Const noteC2 =  265 
Const noteCd2 =  282 
Const noteD2 =  296 
Const noteDd2 =  310 
Const noteE2 =  328 
Const noteF2 =  348 
Const noteFd2 =  368 
Const noteG2 =  390 
Const noteGd2 =  414 
Const noteA2 =  440 
Const noteAd2 =  468 
Const noteH2 =  498 


Public Sub PeterAndWolf()
    Beep noteA0 *  4 ,  600 
    Beep noteD1 *  4 ,  450 
    Beep noteFd1 *  4 ,  150 
    Beep noteA1 *  4 ,  300 
    Beep noteH1 *  4 ,  300 
    Beep noteA1 *  4 ,  450 
    Beep noteFd1 *  4 ,  150 
    Beep noteA1 *  4 ,  300 
    Beep noteH1 *  4 ,  300 
    Beep noteCd2 *  4 ,  450 
    Beep noteD2 *  4 ,  150 
    Beep noteA1 *  4 ,  300 
    Beep noteFd1 *  4 ,  300 
    Beep noteD1 *  4 ,  300 
End Sub