Beep Statement Example

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