Search Tools Links Login

[ Crazy Form ]

Visual Basic 6, or VB Classic

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

Original Author: JamesJD


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
  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: 108 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.