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