Kodları Olduğu gibi kopyala forma yapıştır. Yazan yazıyı değiştirmek içinde F0r3v3r yazan yere istediğini yaz.
Kod:
Private Sub Form_Load()
Show
Dim i, k, x, y, x1, y1
x = 100 'yazı kontrolu
y = 100
k = "F0r3v3r"
FontName = "times new roman"
FontSize = 40
For i = 1 To 15
x1 = x + 10 * i
y1 = y + 10 * i
ForeColor = QBColor(i)
CurrentX = x1
CurrentY = y1
Print k
Next
End Sub