• Home
 · 
• Games
 · 
• A really annoying program that randomly beeps!

A really annoying program that randomly beeps!

A really annoying program that randomly beeps!

API Declarations


'Also place a timer



Rate A really annoying program that randomly beeps!

• 1
• 2
• 3
• 4
• 5

(2(2 Vote))

    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