• Home
 · 
• Jokes/Humor
 · 
• Crazy Form

Crazy Form

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.

Rate Crazy Form

• 1
• 2
• 3
• 4
• 5

(21(21 Vote))

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