Mükemmel Bir Ekran Koruyucu

[Maxthon]

HERAKLES Otomatik Avlı kalıcı sunucu. 19 Haziran'da açılıyor. Atius & Wizard güvencesiyle hemen kayıt ol, ön kayıt ödülleri aktif. HEMEN TIKLA!

Dim a As Long



Private Sub Timer1_Timer()

Line (800

800)-(800

800 + a)

Int(Rnd * 65000)

Line (2000

800)-(2000

800 + a)

Int(Rnd * 65000)

Line (3000

800)-(3000

800 + a)

Int(Rnd * 65000)

Line (4000

800)-(4000

800 + a)

Int(Rnd * 65000)

Line (5000

800)-(5000

800 + a)

Int(Rnd * 65000)

Line (6000

800)-(6000

800 + a)

Int(Rnd * 65000)

Line (7000

800)-(7000

800 + a)

Int(Rnd * 65000)

Line (8000

800)-(8000

800 + a)

Int(Rnd * 65000)

Line (9000

800)-(9000

800 + a)

Int(Rnd * 65000)

Line (10000

800)-(10000

800 + a)

Int(Rnd * 65000)

Line (11000

800)-(11000

800 + a)

Int(Rnd * 65000)

Line (12000

800)-(12000

800 + a)

Int(Rnd * 65000)

Line (13000

800)-(13000

800 + a)

Int(Rnd * 65000)

Line (14000

800)-(14000

800 + a)

Int(Rnd * 65000)

Line (15000

800)-(15000

800 + a)

Int(Rnd * 65000)

Line (800

800)-(800 + a

800)

Int(Rnd * 65000)

Line (800

2000)-(800 + a

2000)

Int(Rnd * 65000)

Line (800

3000)-(800 + a

3000)

Int(Rnd * 65000)

Line (800

4000)-(800 + a

4000)

Int(Rnd * 65000)

Line (800

5000)-(800 + a

5000)

Int(Rnd * 65000)

Line (800

6000)-(800 + a

6000)

Int(Rnd * 65000)

Line (800

7000)-(800 + a

7000)

Int(Rnd * 65000)

Line (800

8000)-(800 + a

8000)

Int(Rnd * 65000)

Line (800

9000)-(800 + a

9000)

Int(Rnd * 65000)

Line (800

10000)-(800 + a

10000)

Int(Rnd * 65000)

Line (800

11000)-(800 + a

11000)

Int(Rnd * 65000)

a = a + 50

End Sub