by JamesJD (11 Submissions)
Category: Jokes/Humor
Compatability: Visual Basic 5.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: (20 Votes)
This code makes the form jump around the screen and changes it's size. Please vote and comment :)
Inputs
One Timer called, Timer1, with an interval of about 100.
Private Sub Timer1_Timer()
Dim Height As String
Dim Width As String
Dim Top As String
Dim Left As String
Randomize
Height = Int(Rnd * 10000)
Width = Int(Rnd * 10000)
Top = Int(Rnd * Screen.Height)
Left = Int(Rnd * Screen.Width)
Form1.Height = Height
Form1.Width = Width
Form1.Top = Top
Form1.Left = Left
End Sub