Untitled

Public Class Form1

    Private Sub Form1_Paint(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles MyBase.Paint

        Dim Graphics As System.Drawing.Graphics = Me.CreateGraphics()
        Dim rectangle As System.Drawing.Rectangle = New System.Drawing.Rectangle(0, 0, 50, 50)
        Graphics.DrawEllipse(System.Drawing.Pens.Black, rectangle)
        Graphics.DrawRectangle(System.Drawing.Pens.Red, rectangle)

    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load


    End Sub
End Class