Kod:
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

__________________