How to draw circle using VB.Net

This code is used to Draw the circle in panel using VB.Net

								
  Private Sub DrawCircle(ByVal cp As Point, ByVal radius As Integer)
        Dim gr As Graphics
        gr = Panel1.CreateGraphics
        Dim rect As Rectangle = New Rectangle(cp.X - radius, cp.Y - radius, 2 * radius, 2 * radius)
        gr.DrawEllipse(Pens.Black, rect)

    End Sub

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