Programalama > VISUAL BASIC

Private Sub Form_load()
    'ÖZELLIKLER AYARLANIYOR
    Me.AutoRedraw = True
    'RENKLERI DEGISTIRIYORUZ
    Me.BackColor = RGB(0, 0, 0)
    
    'GELDI SIRA EFEKT ICIN HAZIRLIKLARA
    Me.DrawMode = 5
    Me.DrawWidth = 3
    Me.WindowState = 2
End Sub


Private Sub Form_Click()
    'DEGISKENLER I TANIMLIYORUZ
    Dim A 'ANA DEGISKENIMIZ
    Dim b 'RENKLERI GÖSTERMEK ICIN KULLANACAGIMIZ DEGISKEN


    For A = 1 To Me.Width / 15
        b = b + 1
        
        'ÇIZGILER VE DAIRELER CIZILIYOR
        'YENI EKLENEN CIZGILER VE DAIRELER SILINIYOR
        'VE KARSINIZA MUHTESEM EFEKT LER ÇIKIYOR :)
        'DEGISIKLIKLERI UZUN UZUN IZLEYIN RAHATLAYACAKSINIZ :)
        '     r
        Me.Line (A * 15, 0)-(A * 15, Me.Height), RGB(255, b, 255)
        Me.Line (0, A * 15)-(Me.Width, A * 15), RGB(b, b, 255)
        Me.Circle (Me.Width / 2, Me.Height / 2), A * 15, RGB(b, b, 255)
        Me.Circle (Me.Width / 1.5, Me.Height / 1.5), A * 15, RGB(0, b, 255)
        Me.Circle (Me.Width / 4, Me.Height / 4), A * 15, RGB(255, b, b)
        Me.Circle (Me.Width / 6, Me.Height / 6), A * 15, RGB(b, 0, 255)
        Me.Circle (Me.Width, Me.Height), A * 15, RGB(b, 255, 255)
        'Me.Refresh


        DoEvents
        Next
    End Sub