Ekran Koruyucu

Formunuza güzel bir ekran koruyucu koyabilirsiniz.

Public Sub drawcircle(] Dim red As Integer 'declare all varibles Dim blue As Integer Dim green As Integer Dim xPos As Integer Dim yPos As Integer red = 255 * Rnd 'randomize red color blue = 255 * Rnd 'randomize blue color green = 255 * Rnd 'randomize green color xPos = ScaleWidth / 2 yPos = ScaleHeight / 2 radius = ((yPos * 0.99] + 1] * Rnd Circle (xPos, yPos], radius, RGB(red, blue, green] End Sub Private Sub Timer1_Timer(] Call drawcircle End Sub

Kolay Gelsin. 

---