Beep를 사용한 PC 스피커로 음악 연주

Beep를 사용한 PC 스피커로(PC에 장착된 스피커,사운드 카드에서 나오는 소리가 아니다)에서 단순한 음을 발생 시킨다.
주파수와, 지속율을 조정하여 단순한 음악을 연주할 수 있다.

다음은 소스이다.
' PC 스피커에 비프음 발생으로 음악 연주하기
Option Explicit

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

Sub main()
    Const E4 = 329.6276
   
    Dim Frequencies As String ' 주파수 문자열(악보)
    Dim Durations As String ' 지속률
   
    Frequencies = "iiihfihfffhidadddfhihfffhihiiihfihffihfdadddfhihffhiki" ' 악보
    Durations = "aabbbfjaabbbbnaabbbfjaabcapaabbbfjaabbbbnaabbbfjaabcap"

    For Note = 1 To Len(Frequencies)
        Beep E4 * 2 ^ ((Asc(Mid$(Frequencies, Note, 1)) - 96) / 12), (Asc(Mid$(Durations, Note, 1)) - 96) * 200 - 10
        DoEvents
    Next
    End
End Sub