Module Module1


    Private Sub Command1_Click()
  For i = 1 To 5
    For j = 1 To i
      Print Chr(Asc(&quot;A&quot;) + i);
    Next j
    Print
  Next i
End Sub

End Module