Sadece Kodu yapıştırcaksınız:
Kod:
Private Sub Form_load()
Kod:
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'ÖZELLIKLER AYARLANIYOR[/COLOR][/FONT][/SIZE][/B][/I]
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.AutoRedraw = True[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'RENKLERI DEGISTIRIYORUZ[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.BackColor = RGB(0, 0, 0)[/COLOR][/FONT][/SIZE][/B][/I][/CENTER]
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'GELDI SIRA EFEKT ICIN HAZIRLIKLARA[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.DrawMode = 5[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.DrawWidth = 3[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.WindowState = 2[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown]End Sub[/COLOR][/FONT][/SIZE][/B][/I][/CENTER]
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown]Private Sub Form_Click()[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'DEGISKENLER I TANIMLIYORUZ[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Dim A 'ANA DEGISKENIMIZ[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Dim b 'RENKLERI GÖSTERMEK ICIN KULLANACAGIMIZ DEGISKEN[/COLOR][/FONT][/SIZE][/B][/I][/CENTER]
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] For A = 1 To Me.Width / 15[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] b = b + 1[/COLOR][/FONT][/SIZE][/B][/I][/CENTER]
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'ÇIZGILER VE DAIRELER CIZILIYOR[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'YENI EKLENEN CIZGILER VE DAIRELER SILINIYOR[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'VE KARSINIZA MUHTESEM EFEKT LER ÇIKIYOR :)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'DEGISIKLIKLERI UZUN UZUN IZLEYIN RAHATLAYACAKSINIZ :)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] ' r[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Line (A * 15, 0)-(A * 15, Me.Height), RGB(255, b, 255)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Line (0, A * 15)-(Me.Width, A * 15), RGB(b, b, 255)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Circle (Me.Width / 2, Me.Height / 2), A * 15, RGB(b, b, 255)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Circle (Me.Width / 1.5, Me.Height / 1.5), A * 15, RGB(0, b, 255)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Circle (Me.Width / 4, Me.Height / 4), A * 15, RGB(255, b, b)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Circle (Me.Width / 6, Me.Height / 6), A * 15, RGB(b, 0, 255)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Me.Circle (Me.Width, Me.Height), A * 15, RGB(b, 255, 255)[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] 'Me.Refresh[/COLOR][/FONT][/SIZE][/B][/I][/CENTER]
[CENTER][I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] DoEvents[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] Next[/COLOR][/FONT][/SIZE][/B][/I]
[I][B][SIZE=3][FONT=Arial Narrow][COLOR=sandybrown] End Sub[/COLOR][/FONT][/SIZE][/B][/I][/CENTER]
[/CENTER]| S@YGIL@R |
