Private Sub Form_Load()
AutoRedraw = True
[B]MyPrint[/B] "This is a sample."
End Sub
Private Sub [B]MyPrint[/B](ByVal Text As String)
Dim Pos As Long
For Pos = 1 To Len(Text)
CurrentX = Pos * 150
CurrentY = Pos * 150
Print Mid(Text, Pos, 1);
Next
End Sub