'Listing 24.5 24LIST05.TXT - Zmniejszanie licznika ptli

Private Sub Command1_Click()
  For Counter = 10 To 1 Step -1
    Form1.Print Counter
  Next Counter
End Sub
