Private Sub Form_Load()
Show
FontSize = 30
Font = "arial"
For i = 1 To 15
a = "Virüs___Dizayned By Bad_ghost"
ForeColor = QBColor(blue + c)
CurrentX = 3500 - b
CurrentY = 1500 - b
Print Mid(a, 1, Len(a))
b = b + 25
c = c + 1
Next
Do
b = 0
Loop Until b = 1
End Sub

ne simdi bunu konu acmısın ama anlatmamısın

anlatılacak bir sey yokki sadece form load kodu yapıstı yeter...

anlatılacak birşey yok diyorsun ama bu kodlar ne işe yarar biraz daha açıklarsan bizde birşeyle öğrenebiliriz

arkadaşım arkadaş başlıkta vermiş ya basit bi virüs diye daha nasıl açıklama yapılır ki b_j_k_38 tşkler arkadaşım güzel olmuş

böyle hiç kimse bir şey öğrenemez

evt biraz açıklama yap bunlar nası olcak nası bitcek

bu ne ya 3 5 satır kodla ne yapıyon senn ne işe yara hele bi anlat ne demek gerek yoq

bu virus bilgisayarda ne yapmak istiyor diye sorulmuş sanıırm bende merak ettim diyecem ama sanırım yazı tipini sürekli büyütüyor sorna pc kitleniyor tekrar sistemi ancak güvenli kipte açabiliyouz gibi bir yorum getiyorum ne derece doğru bilmiyorum tabi...

aynen arkadasım yazı tipini , arka plan rengini , yazı boyutunu degiştiriyor.