by Im_[B]0ReD (5 Submissions)
Category: Jokes/Humor
Compatability: Visual Basic 3.0
Difficulty: Beginner
Date Added: Wed 3rd February 2021
Rating: 
(21 Votes)
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 =-)
Assumes
add a timer (Timer1) with an interval of 175
VBcodersPrivate 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
