'Listing 24.7 24LIST07.TXT Zagniedone ptle For

Private Sub Command1_Click()
  For X = 1 To 2
    Form1.Print "X = " & X
    For Y = 1 To 5
      Form1.Print " Y = " & Y;
    Next Y
    Form1.Print ""
  Next X
End Sub
