by Redx51 (1 Submission)
Category: Windows System Services
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Fri 1st November 2002
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Make millons of forms pop up when closed
Cancel = 1
timer1.enabled=true
MsgBox "You have just unleashed 'The Beast'"
End Sub
Private Sub Timer1_Timer()
Dim leftI As Long
Dim rightI As Long
leftI = Form1.Left + 1000
rightI = Form1.Top + 1000
Dim a As New Form1
a.Width = Me.Width
a.Height = Me.Height
a.Left = leftI
a.Top = rightI
a.Show
End Sub