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