Как проиграть простейшую музыку по нотам? - VB

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

Есть ноты. Как можно их озвучить? Beep выдает один тон

Решение задачи: «Как проиграть простейшую музыку по нотам?»

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

                             Private Declare Function PlaySound Lib 'winmm.dll' _
 Alias 'PlaySoundA' (ByVal lpszName As String, _
 ByVal hModule As Long, ByVal dwFlags As Long) As Long
 
 Private Const SND_FILENAME = &H20000     '  name is a file name
 Private Const SND_ASYNC = &H1         '  play asynchronously
 Private Const SND_LOOP = &H8         '  loop the sound until next sndPlaySound
 Private Const SND_NODEFAULT = &H2    'Suppress default system sound
 
    Call PlaySound('C:WindowsMediaOffice97Pants.wav', 0, _
    SND_FILENAME Or SND_ASYNC)
                        