'Listing 24.1  24LIST01.TXT --- Proste uycie instrukcji For..Next

Private Sub Command1_Click()
  For LoopCounter = 1 To 5 Step 1
    Form1.Print LoopCounter
  Next LoopCounter
End Sub
