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 =-)
AI
AI Summary: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.
Source 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
Original Comments (3)
Recovered from Wayback Machine