'Listing 24.2  24LIST02.TXT -- Przykad z listingu 24.2 zapisany z uyciem instrukcji Do..Loop.

Private Sub Command1_Click()
  LoopCounter = 1
  Do While LoopCounter <= 5
    Form1.Print LoopCounter
    LoopCounter = LoopCounter + 1
  Loop
End Sub
