<!---hazir-kod.net kod başlangıc--->
'Öncelikle formunuza 3 adet label, 3 adet timer, 1 adet module, 1 adet text ekleyin;
'text1in multiline özelliğini true yapın ve textine aşağıdaki karakterleri yapıştırın; veya herhangi bir resim dosyasını notepad ile açtığınızda çıkan karakterleride kullanabilirsiniz...

aRÆ
Ä � òòò\>^æ

¿ëÿÿçèèµÍÎÊÏøÿşşĞ–�iğßCž‘)£´¿Û´‰Œ�wn3µÕçÁ³Ilmm»¸�FGG�*,-ÙÙÙ|~{ãã㺺¹£??şÿ½ÿÿÿ, RÆ
ÿà'Ždižhª®lë¾p,Ïtmßx®ï|ïÿÀ pH,�ȤrÉl:ŸĞ¨tJ­Z¯Ø¬vËíz¿à°xL.›Ïè´zÍn»ßğ¸|N¯Ûïø¼~Ïïûÿ€�‚ƒ„…†‡ˆ‰Š‹Œ�Ž��‘’“”•–—˜™š›œ�žŸ ¡¢£¤¥¦§¨©ª«¬­®¯°±²³´µ¶·¸¹º»¼½¾¿ÀÁÂÃÄÅÆÇÈÉÊËÌÍÎÏĞ_ Ö×ØÑÚÛÜ’áßêììäãİôõöqë
ëüè0 0í5 V ŽÂ½‡#f±@±â9t3šÁó>pàPÑ‚?~-ÿ8”Ȳe/ Èœ©aÂ25@À9s
(ž`A†‘“žë8"@ ç‚J>ÊAé
 0±Õ¥×¯§œB '.œ€ h¨>@!B… "P€—
[qà(Œ¬@!C�
ó6`j5*ş„bØĞ5€À 9`È�!@H§Œ#È5 ‡�`C‹Î˜�Üvh@‚Úf6`P vmä
ˆ {f„ sh° ò¢U£J…ù ÇJ`°àT ‚êÅÀpúæÑàÃ#ÊpASv1íŞl öîÔ¶a¿Ž_ûAœjóç7ğ»|׌€Pt Q$€ÿy#`
Iç' E‰gá…~l°[8À
räĞ'"{ˆhâ‰&Ú'“[)P3�5ÔÄ@U xŽIpp�`CM€ L™ãO>†H& G T0’ŽTàÁ÷EğNZóÅ—Š\¢¨Ÿ?5E97èORw>šßEè|s& 0ı×6xæ9Yáˆ��5NÁ¤ä „v hAnVîFåm§í& N%vi饵İÇ`<ˆCM a"ĞÜ@éL·ÒxS­IÙ…)…טİh
T+
À 8…öêëˆñ³@{ò½ö@¥'2ğ@–˜Ú[ªeꛕdÒÿ@?•«$˜“£‡ykçX8¤
•wØ08Âp�¥3"%˜TP‡�”ï“Œ«ıœúA¢ÖhàÀ¯oá”S <ÍD[±˜nÙl
üŽ:¿µæpº@HgÉ$`Ž¿#0–ƒe+8�Ñd•qe
…
p@ŽÑ{Ë
ÌJ
Á5&· G[ŸˆÑrØ@³ªá¶ÄmñN`‡e ĞÁ%åsÊ,O!ş:¦³ÁÜ>ËûÕ6*.“@Re·ÔÜX Öž[…em#ş´Ò-!Á:ìq(B>ê,ğZ¼3é|±cuÿläğvqïÍT[Ö à”ŽÓÕ˜ »ql �I. Ç
GÅ’ÁÍ%8ğàžQ$LòúÍìİD;ÍoµyFİD;ä÷<ÎMËⶕ?RPùo¿í†ÓD ùÄù‘3ìVw‰Ûlj m"d”9;
ğqíŞzArÀ*TŒä?ù€L¾19�Pkš®� üUà*<hWyj£Âh: À €èåØëF ~Ä=úÌH [Ô±r£
dk
3ÄçÆ4©­>R“�?Èá¨,�øˆƒF¸æ‰ O¢ ÒÔğ''^�$˜ÑHÚa¸‰`#8²Âÿ©äG`"‡„n��u Ğ_«€<@GçAŠK¡6Õ–ßø°6¹Ñ\5p“›p bˆM£ÈÇ(òù‘Y(z@÷¨º˜Ä(¬F’?‘éFDIŠÀØ F¡\ï :ŸùÁC)Š Q*ÑKਮNÁ¤Sp’ô!”ƒs¬£YŽ)êÑ+TüĞBŸcYÉ:“sÀÁ2à
T  À2Î!ËRŠ´‹^Br+>õa… Íä!Qc$gZãâ˜sèåDÉg“ ue–…3ÏîŞÑ´YŽIs †y$Ï+HñG¦00¸†s|ÔÀ\31-áÿÆJ"¤Ìp™¸h
j‘¤–.%û�4¡SVN©˘±$ö²¢àvÄî^R9Ò
zVÀ †˜bÜAÉá¹Âı=ˆ9Lò(àªHÈäŠzÑgdt£�”OnB¸ ‘’t&'Miü:Ê¥–rH� + 50@Ó<اáˆóÄÀSQà§3jˆºƒ£Š‘J}`S3ğÔÁ)°®\ *9¬ŠU­©«ÊZ8şG<rÌ&YráÍØŞ‚¸0U ñûax#—š� ;GÕd ¡3«XK
¢’‡·ôE³e ”)O@ğu‚ìس#«
ó2ËŒep{Y¸�Œáwÿd“
¨�²|cŸ˜õÅXv‚¿óPI.©EZ¨+“ø½5‘—²‹[^à v€·g¼ı Ìş ³‹LPg_°Ì¬UZ+ )q€@ªÀ˜M¿' •<PÀ8†™`¯ƒÕo§Êâ²­ØiaVÇ7žC¬ †i¨‘£
Ú…�º6¼Ã� &•>@¦6&ºI?†ÕÌŞhÉ›iQßC¹Š~‚"�Õ‚?ˆ ¦æ戕ƳØ@“Ö\
´İÉ-âËMn´–^´¬9}êËÒÔÄêHGjî�*À$ ıÀ�Ž€êUÑ »şZ£yÜÈ’Ô™ÿ²ƒ¦3ip•%¦‘ _’g€NrpÇC;ùÀU=0jD Fë@ó,8�øÉÄà³hS8à!�Ã
_ÀgmS—cÙgLìáµ–î³Tñ-@ à%�†NŽAûA2BÑĞÎ}ŽŒD~
qœæÜP…±A[Çye‹ppÇOQj’D ¤$@Õ«ÖèMP_ŞT Ãà‚Éæ8×ÌE�w7cú
NpØcòüØÉ"A¦#Cd ÉÎÌÚ¸ �uZ÷PáÖäRµm8ë ˆ›ùÖ® ¯ğ’¨àUÛ
ïSXG+|‡I·Æ€†7ÜÊ€: …¢û4é4èœbÙ
*á†,B1 ÿÍÛÇ9œ07Àw¼Ğä땃8Ã1A¾‚¢`�€çğPÂKÊ´«F~’uË5±ÚaÙ»¼fK[şˆ±¸‹%â
ĞÀ¨@Æ6Bëi“1Óy©
‡§ .í Ş6¶nÙ$#Ô.œì`™”BQíï{«
Dúx\Œ}í›àãMÒR�›À�oɇ[0ŸËµEƒ6 'Ú̹s¢VӹхUKŽ¼7¹ÒáôFPh+dšŒÚ­`\�¬ÄT>Çš\e³Õ,Âø^EøQ¿‰y &a´V÷
¬n
ŒÙ¢ ߨ�ğŞ«%È×jâzœ„®·±,\"wÿäğ1Ü7}†@!:A
7UœÑÚ;C>C2QAÀ�äg
í¢+ÁEHãBÆ䀩Á Û5�İæo7Á-6!H+
rnÁâ{ğ�5’Ô!”2°åEŽP[25²ζž·?ØaÅq$BxBb½ĞƒH
¬†:"ğëR 2.¶†:êókC‚<¨+ú¢À
h�x #t1))ÂT2òFûp >˜ÍepGEQ[¼#¢<Äaq·ã'@ 5"
£T…‚@kàâ$"ä
ùQ
—aEa'j†Hk–G:Ò$-(äÒ$C!Mì°zÿŒRlÅ š8‚%À;‘&?¡U…'s<Rž§L¡Ê4Ïaã°ˆ‘€ʈ*Ô0}D6�ˆ€
Žø’ˆ6Á…Ç*è'Ğ$eƒ#…0P
Yd S'39G¤_á
Ê¢H”äã#ÄA+Kñ-†ğ$’qñH”±2
ó!&�B
¢3Ü
„£0`ø¶;/Àc¡†çn¸†�
"
ï¶�K¢=(u%2
}Ã4ì8�i-P
I´ 'ğ#D3`:±aÀ>>31(µZn¡@2ØT¦+“175mŠ@
–¶#YT�Z‡€x ›6ãOÿ+à0‰O€!Eãb à‘A��M ÀyZàn�
E *Gˆ£sÎ’>„÷ÁòtşaÍÇö“““3‡“D•g^²gñá�ûÈç !NQŒCk8ÊÁui€8á’/°_xPŠâbRÙ+”0w{>ù“³;­A
6@  L´¹– –X€' p
)’8 0§7öGZã{®³UÆ„T2é…cñ}‹6Y Ó$óĞ)Sà 5Áy1)«U"*ÕQãÃߤp
U鎻E�‡ +!*…¸øõ–%@ùe–‘X¥ ¼7šI "còş3 Јÿ* ´Y µ9 Wp
j
—'´™'�#uğGµ¦%ƒ­
à5¡’û„TÇÁXï >}Ç!ö9)åY¹±J4&psqlê°ZûG?�'@AStT"
Ÿp�#ñ
hÙ^�@H„CcttUŠˆ@BK’€�` Xš¥Ј ª¥¼Iğ JGÎ¥4+$ozÅjP‚0>¨xó…‚
`L�©QžƒHì±k
¿�¬““õÅCÖ!BÔ�PplÓ Hº2w€Šm1�şÀmX!#�¡ÿp
ÍX½8À}‚ğ¤m0A8
¹DVÔPBĞ$ÿ¢j›�T"†Od¡¥´j `Ö@«Î5¦µº¥ÖĞI¾âŸĞÂ(w)ƒ ñ©­¶,”Ä:ğ=ïQ
�E"!ME„éÓcµ ñQ§[Q
ëğBøq`’l€Ž#0#‚k´ÈÃ1J±¥I&E�mĞ©�™Ñ€²ó ¥r¤Fj­‡(æªéÚK4,e4^Fa½Ú°ut«T¦;±k
Ù+1
|Q>@â0ë`‚ 4—
`
 DªHxÆ":gÚ5
£V =Ä19ÿñò›­×$ ÿª

'----------------------
'Module içine aşağıdaki kodları yazın;

Declare Function ShowCursor Lib "user32" (ByVal fShow As Integer) As Integer
Sub HideMouse() 'mouse gizle
While ShowCursor(False) >= 0
Wend
End Sub
Sub showmouse() 'mouse göster
While ShowCursor(True) < 0
Wend
End Sub

'----------------------
' form içine de aşağıdaki kodları yazın;

Dim a, b, c, harf

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 27 Then showmouse: End 'ESC tuşuyla mouse gösteri çağır ve ekran koruyucuyu kapat
End Sub

Private Sub Form_Load()
If App.PrevInstance Then 'Ekran koruyucu çalışıyorsa
Unload Me'kapat
End If
HideMouse 'mouse gizleyi çağır
Me.BorderStyle = 0 'formun başlığı ve çerçevesi kaldırılıyor
Me.BackColor = &H0& 'formun arkaplan rengi siyah yapılıyor
Me.FillColor = &HC000& 'formun dolgu rengi yeşil yapılıyor
Me.ForeColor = &HFF00& 'formun yazı rengi açık yeşil yapılıyor
label1.BackStyle = 0 'label1 arkaplanı transparan yapılıyor
label1.ForeColor = &HFF00& 'label1 yazı rengi açık yeşil yapılıyor
label2.BackStyle = 0 'label2 arkaplanı transparan yapılıyor
label2.ForeColor = &HA000& 'label2 yazı rengi yeşil yapılıyor
label3.BackStyle = 0 'label3 arkaplanı transparan yapılıyor
label3.ForeColor = &H5000& 'label3 yazı rengi koyu yeşil yapılıyor
'ekran çözünürlüğüne göre formun ve labelların boyutları ayarlanıyor
Me.Width = Screen.Width
label1.Width = Me.Width
label2.Width = Me.Width
label3.Width = Me.Width
Me.Height = Screen.Height
label1.Height = Me.Height
label2.Height = Me.Height
label3.Height = Me.Height
label1.top = 180
label2.top = 0
label3.top = 0
label1.left = 0
label2.left = 0
label3.left = 0
'timerların fasılaları ayarlanıyor
Timer1.Interval = 10
Timer2.Interval = 22
Timer3.Interval = 23456
End Sub



Private Sub Timer1_Timer()
FillColor = RGB(Rnd * 205, Rnd * 205, Rnd * 205) 'rastgele RGB renkleri seçiliyor
FillStyle = 1
Circle (Rnd * Width, Rnd * Height), Rnd * Width, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'rastgele boyut ve renk seçiliyor
c = Len(Text1.Text) 'c, text1.textin karakter sayısına eşitleniyor
a = Int(Rnd * 101) 'a, rastgele bir tam sayıya eşitleniyor
If a = 0 Then a = 1 'eğer a, 0a eşitse 1e eşitleniyor
b = Int(Rnd * a + a) 'b, a ile ilişikli rastgele bir sayıya eşitleniyor
b = b * a 'b, b ile a çarpımına eşitleniyor
If b > c Then b = b - a - a 'eğer b, c den büyükse b den 2 defa a çıkartılıyor
harf = Mid(Text1.Text, b, 1) 'harf, text1.textin, b'inci harfinden başlayan 1 karaktere eşitleniyor
label2.Caption = label2.Caption & harf 'label2 nin ardına harfe atanan karakter ekleniyor
label3.Caption = label3.Caption & harf 'label3 Ün ardına harfe atanan karakter ekleniyor
End Sub


Private Sub Timer2_Timer()
la1.Caption = label1.Caption & harf 'label1 in ardına harfe atanan karakter ekleniyor
FillColor = RGB(Rnd * 205, Rnd * 205, Rnd * 205) 'rastgele RGB renkleri seçiliyor
FillStyle = 1
Circle (Rnd * Width, Rnd * Height), Rnd * Width, RGB(Rnd * 255, Rnd * 255, Rnd * 255) 'rastgele boyut ve renk seçiliyor
End Sub

Private Sub Timer3_Timer()
label1.Caption = "" 'label1 siliniyor
label2.Caption = "" 'label2 siliniyor
label3.Caption = "" 'label3 siliniyor
End Sub

<!---hazir-kod.net kod bitişi--->