Hoş bir ekran koruyucu örneği Arkadaşlar form oluşturduktan sonra bu kodları form'a yazın! ve make exe diyip dosya türünü .scr olarak seçin ve complie edin!

Option Explicit
Dim Value, POSITIONH, POSITIONV, RANDOMRADIUS, RANDOMCOLOR As Integer
Dim FINALCOLOR As ColorConstants


Private Declare Function ShowCursor Lib "user32" (ByVal bShow As Long) As Long


Private Sub Form_Click()
Unload Me
End Sub


Private Sub Form_KeyDown(KeyCode As Integer, Shift As Integer)
Unload Me
End Sub


Private Sub Form_Load()
Timer1.Interval = 1000


Form1.ClipControls = False


Form1.WindowState = vbMaximized


Form1.BackColor = vbBlack
ShowCursor (False)
Randomize
Value = Int(Form1.Width * Rnd)
POSITIONH = Str$(Value)

Randomize
Value = Int(Form1.Height * Rnd)
POSITIONV = Str$(Value)
End Sub


Private Sub Form_Unload(Cancel As Integer)
ShowCursor (True)
End Sub


Private Sub Timer1_Timer()
Randomize
Value = Int(Form1.Width * Rnd)
POSITIONH = Str$(Value)

Randomize
Value = Int(Form1.Height * Rnd)
POSITIONV = Str$(Value)

Randomize
Value = Int(5000 * Rnd)
RANDOMRADIUS = Str$(Value)

Randomize
Value = Int(7 * Rnd)
RANDOMCOLOR = Str$(Value)



Select Case RANDOMCOLOR
Case 0
FINALCOLOR = &H80FF&
Case 1
FINALCOLOR = vbGreen
Case 2
FINALCOLOR = vbRed
Case 3
FINALCOLOR = vbYellow
Case 4
FINALCOLOR = vbWhite
Case 5
FINALCOLOR = vbBlue
Case 6
FINALCOLOR = vbCyan
Case 7
FINALCOLOR = vbMagenta
End Select
Circle (POSITIONH, POSITIONV), RANDOMRADIUS, FINALCOLOR

End Sub