How to create different shapes and fill color in them?

Yellow_Flash wrote:

Here is one of the drawing I wanted to create
But every time circle size and color should be changed but in this it is a same drawing every time

And if i want to add some other shapes in the circle then i don't have any idea to do so?

What you need is animation. You can use some data model of your graphics and the rendering procedure from data to rendering using the functions you show, called from overridden OnPaint or a handler of the event Paint of some control where you render it. Then you should have some thread doing animation on the data model. This thread should notify the UI thread using Control.Invoke, and invoked method should cause refresh of the graphics in each change using one or more of the Control.Invalidate methods. Please see my past answers:

How to speed up my vb.net application?[^],
What kind of playful method is Paint? (DataGridViewImageCell.Paint(...))[^],
capture the drawing on a panel[^],
Drawing Lines between mdi child forms[^].

You can use this technique in all cases when you graphics changes; not only for animation, but for any changing behavior: interactive, animated, combination of those, changing with time by any other events.

—SA

Here is one of the drawing I wanted to create
But every time circle size and color should be changed but in this it is a same drawing every time

And if i want to add some other shapes in the circle then i don't have any idea to do so?

Private Sub DrawCircle()
Dim g As Graphics
g = Panel1.CreateGraphics
Dim yellowPen As New Pen(Color.Yellow, 20)
Dim bluePen As New Pen(Color.Blue, 30)
Dim greenPen As New Pen(Color.Green, 20)
Dim skybluePen As New Pen(Color.AliceBlue, 20)
Dim voiletPen As New Pen(Color.Violet, 15)
Dim blackPen As New Pen(Color.Black, 2)

' Draw ellipses
g.DrawEllipse(yellowPen, 260, 180, 10, 10)

g.DrawEllipse(greenPen, 240, 160, 50, 50)

g.DrawEllipse(bluePen, 220, 140, 90, 90)

g.DrawEllipse(greenPen, 200, 120, 130, 130)

g.DrawEllipse(skybluePen, 180, 100, 170, 170)

g.DrawEllipse(blackPen, 180, 100, 170, 170)

g.DrawEllipse(voiletPen, 170, 90, 190, 190)


End Sub

 Private Sub Panel1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Panel1.Paint
DrawCircle()
End Sub