• Home
 · 
• Graphics
 · 
• Makes a screen saver.

Makes a screen saver.

Makes a screen saver.

Rate Makes a screen saver.

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

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