'Listing 24.4 24LIST04.TXT -- Zmiana wartoci kroku 

Private Sub Command1_Click()
  For Counter = 0 To 50 Step 5
    Form1.Print Counter
  Next Counter
End Sub
