Dim i As Integer
Dim sx As Integer
Dim sy As Integer

Private Sub Form_Load()
Form1.AutoRedraw = True
Form1.ForeColor = vbBlue

Form1.ScaleMode = 3
Form1.FontBold = True
sx = 2
sy = 2
For i = 0 To 10
CurrentX = sx + i
CurrentY = sy + i

If i = 10 Then Form1.ForeColor = vbWhite
Form1.Print "Joakim Carbonnier" 'Du kan byta ut det här namnet om du vill
Next
End Sub