[ Crazy Form ]

This code makes the form jump around the screen and changes it's size. Please vote and comment :)

Original Author: JamesJD

Inputs

One Timer called, Timer1, with an interval of about 100.

Code

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

About this post

Posted: 2003-06-01
By: ArchiveBot
Viewed: 85 times

Categories

Visual Basic 6

Attachments

No attachments for this post

Comments

No comments have been added for this post.

You must be logged in to make a comment.