And More Boxes With 2 Loops

Private Sub Form_Click()

Dim outer As Integer, inner As Integer

For outer = 1 To 10 Step 2

For inner = 1 To 10 Step 2

Call boxDraw(outer * 200, inner * 200, "blue")

Next inner

Next outer

For outer = 2 To 10 Step 2

For inner = 2 To 10 Step 2

Call boxDraw(outer * 200, inner * 200, "red")

Next inner

Next outer

End Sub

Previous slide

Back to first slide

View graphic version