a ***VERY DIFFERENT*** Screen Saver

this is a totally differn't type of screensaver than what i've found here, this is actually pretty funny to just sit back and watch =-)

Original Author: Im_[B]0ReD

Assumptions

add a timer (Timer1) with an interval of 175

Code

Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub
Private Sub Form_KeyPress(KeyAscii As Integer)
Unload Me
End Sub
Private Sub Form_Load()
Form1.BackColor = vbBlack
Form1.BorderStyle = 0
Timer1.Interval = 175
End Sub

Private Sub Timer1_Timer()
ht = RandomNum(Min, Max)
wh = RandomNum(Min, Max)
Form1.Move wh, ht
Form1.Height = ht
Form1.Width = wh
Form1.Height = wh
Form1.Width = ht
End Sub
Public Function RandomNum(Min, Max) As Long
RandomNum = Int((Max - Min + 9500) * Rnd + Min)
End Function

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 118 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.