'Listing 24.6  24LIST06.TXT Uycie instrukcji Exit For

Private Sub Command1_Click()
  For Counter = 7 To 100 Step 7
     if Counter Mod 5 = 0 Then
        Form1.Print Counter & "jest podzielne przez 5"
    Exit For
   End If
 Next Counter  
End Sub
