This example uses the Beep statement to sound three consecutive tones through the computer's speaker.
Dim I For I = 1 To 3 ' Loop 3 times. Beep ' Sound a tone. Next I