Protected Overrides Sub OnMouseDown(ByVal e As System.Windows.Forms.MouseEventArgs)
 Me.Text = "Nested Loop"
 Dim Rec As Integer
 Dim Circle As Integer
 Dim MyBrush As New SolidBrush(Color.Blue)
 Dim MyPen As New Pen(Color.Red)
 For Rec = 1 To 4
   Me.CreateGraphics.DrawRectangle(MyPen,e.X+Rec*15,e.Y,10,30)
   For Circle = 0 To 2
     Me.CreateGraphics.FillEllipse(MyBrush,e.X+Rec*15,e.Y+Circle*10,10,10)
   Next Circle
 Next Rec
End Sub 'OnMouseDown