Visual Basic Örnek Ekran Koruyucu Uygulaması

Merhaba arkadaşlar, bugünki yazımda visual basic ürünü ile örnek uygulama yapacağız uygulamamız bir ekran koruyucu bu ekran koruyucuyu yapmak isterseniz aşağıdaki kodu form1 kaynağına yapıştırın ve isteğinize göre düzenleyin hepsi bu kadar..İyi eğlenceler :)
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