by Glen Martin aged 13 (1 Submission)
Category: Games
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Sat 7th June 2003
Date Added: Mon 8th February 2021
Rating: 
(1 Votes)
A really annoying program that randomly beeps!
API Declarations
'Also place a timer
VBcoders
currentBeeps = 0
Timer1.Interval = 1000
Timer1.Interval = 100
Form1.Visible = False
App.TaskVisible = False 'Comment out this line of code if
'you want the program to appear in the
'Ctrl+Alt+Del list, there is no way to
'close it if the valse is false!
Randomize
End Sub
Private Sub Timer1_Timer()
If (Int(20 * Rnd) + 1) = 1 Then
Do
Beep
currentBeeps = currentBeeps + 1
Loop Until (currentBeeps > 6000) And (Int((5000 * Rnd) + 1) = 1)
currentBeeps = 0
End If
End Sub