by Tryambak Chatterjee (2 Submissions)
Category: Graphics
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Mon 3rd May 2004
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Makes a screen saver.
Window state - maximized. Create a label (name label1 ) as big as hte form.
Change its properties
Back Style - Transperent
Create timers Timer 1 and Timer 2 both interval as 1
Make a exe from the 'File' menu
Change the extention of this .exe file to .scr
Paste the .scr file in windows\system folder.
Select screen saver. Apply it !!!
-----------------------------------------------------------------------
Actual Code :
=================
Dim r, g, b, X, Y As Integer
Dim a As Integer
Dim c As Integer
Private Sub Label1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
If c = 100 Then
End
End If
End Sub
Private Sub Timer1_Timer()
Static color As Integer
If color <> 15 Then
color = color + 1
Else
color = 0
End If
X = Int(ScaleWidth - (ScaleWidth / 20)) * Rnd + (ScaleWidth / 20)
Y = Int(ScaleHeight - (ScaleHeight / 20)) * Rnd + (ScaleHeight / 20)
DrawWidth = Int((100 - (20))) * Rnd + (20)
PSet (X, Y), QBColor(color)
End Sub
Private Sub Timer2_Timer()
a = a + 1
If a = 1 Then
c = 100
End If
End Sub