• Home
 · 
• Jokes/Humor
 · 
• a VERY DIFFERENT Screen Saver

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 =-)

Assumes
add a timer (Timer1) with an interval of 175

Rate a VERY DIFFERENT Screen Saver

• 1
• 2
• 3
• 4
• 5

(22(22 Vote))

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