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