by Beavis_The_grate (1 Submission)
Category: Custom Controls/Forms/Menus
Compatability: Visual Basic 4.0 (32-bit)
Difficulty: Unknown Difficulty
Originally Published: Mon 26th November 2001
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Make your form shake (like an earthquake(?))
Private Sub Timer1_Timer()
Me.Width = Me.Width + 200
Me.Height = Me.Height + 200
Me.Left = Me.Left - 100
Me.Top = Me.Top - 100
Me.Width = Me.Width - 200
Me.Height = Me.Height - 200
Me.Left = Me.Left + 100
Me.Top = Me.Top + 100
End Sub