Drawing an eclips first attempt

Imports System.Drawing
Imports System.Drawing.Drawing2D
Imports System.Windows.Forms
Public Class Form1

    Private Sub BRun_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BRun.Click
        Dim a As Graphics
        Dim mypen As Pen
        Dim myrect As RectangleF

        mypen = New Pen(System.Drawing.Color.Red, 6)

        a = Me.CreateGraphics
        a.Clear(Me.BackColor)
        a.DrawEllipse(mypen, 100, 100, 50, 50)

        myrect.Width = 250
        myrect.X = 300
        myrect.Y = 10
        myrect.Height = 100
        a.DrawEllipse(mypen, myrect)



        a.Dispose()
        mypen.Dispose()
    End Sub

    Private Sub BExit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BExit.Click
        End
    End Sub
    Public Shared Sub Main()
        Application.Run(New Form1)
    End Sub
End Class