VB6 Yazı Effekti

Private Sub Form_Load()

Show
Dim t, i, x1, y1
t = "HackTurkiye"
FontName = "Times New Roman"
FontSize = 15
For i = 0 To 255
x1 = ScaleWidth / 2 + 30 * i * Cos(i * 0.1)
y1 = ScaleHeight / 3 + 30 * i * Sin(i * 0.1)
ForeColor = QBColor(i Mod 16)
CurrentX = x1
CurrentY = y1
Print t
Next
End Sub