Private Sub MakeCircles () Import System.Drawing.Drawing2D Dim Xtemp, Ytemp As Integer Dim Ltemp As Single Dim ShapeBrush As New Drawing2D.HatchBrush(HatchStyle.Min, Color.Black, Color.White) Dim PenColor As New Pen(Color.Black, 2) Dim MakeShapes As Graphics MakeShapes = Me.CreateGraphics For temp = 1 To 70 Xtemp = 15 + (Rnd() * 800) Ytemp = 15 + (Rnd() * 350) Ltemp = 20 + (Rnd() * 200) Wtemp = 20 + (Rnd() * 200) MakeShapes.FillEllipse(ShapeBrush, Xtemp, Ytemp, Ltemp, Wtemp) MakeShapes.DrawEllipse(PenColor, Xtemp, Ytemp, Ltemp, Wtemp) Next
var
This content, along with any associated source code and files, is licensed under The Code Project Open License (CPOL)