Zebra0.com

These programs use loops to create interesting designs. No controls are placed on the form and no properties are changed. Start a new project or delete the code from the previous exercise.
Look at each example, run it, then make some slight modifications. Experiment!

Public Class Form1
    Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
        Dim Num As Integer
        Dim MyPen As New Pen(Color.Chocolate)
        For Num = 1 To 25 Step 5
            Me.CreateGraphics.DrawEllipse(MyPen, e.X, e.Y, Num, Num)
        Next Num
    End Sub
End Class
 

Public Class Form1
    Private Sub Form1_MouseClick(sender As Object, e As MouseEventArgs) Handles Me.MouseClick
        Dim Num As Integer
        Dim Hlf As Integer
        Dim MyPen As New Pen(Color.DarkMagenta)
        For Num = 2 To 26 Step 4
            Hlf = Num / 2
            Me.CreateGraphics.DrawEllipse(MyPen, e.X - Hlf, e.Y - Hlf, Num, Num)
        Next Num
    End Sub
End Class

NEXT: For Loops