Private Sub Form_Load() Me.AutoRedraw = True Dim i As Integer For i = 1 To 5 Print String(i, 64 + i) NextEnd Sub