Mesaj Sayısı : 1274 Yaş : 31 Nerden : sakarya Kayıt tarihi : 05/05/08
Konu: Güzel Bir Yazı Efekti Cuma Haz. 06 2008, 14:02
Private Sub Command1_Click() Dim x, y, i form1.FontSize = 24 ForeColor = 0 x = CurrentX y = CurrentY For i = 1 To 400 Print "Malatya" x = x + 1: y = y + 1 CurrentX = x CurrentY = y Next ForeColor = &HFFFF& Print "Malatya" End Sub