Vb de aFFeTmez Team'e yazı animasyonu

Private Sub Form_Load()
Show
FontSize = 30
FontUnderline = True
FontName = "MS Sans Serif"
Text1 = "Hacktürkiye.com"
Text1.Visible = False

Dim I
Randomize Timer
For I = 0 To 2000
CurrentX = 1000 + I * Sin(I / 205)
CurrentY = 2500 + I * Cos(I / 190)
ForeColor = RGB(Rnd * 255, Rnd * 255, Rnd * 255)
Print Text1


Next

End Sub