[ 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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.