Visual Basic

Imports System<br />
Imports System.Drawing<br />
<br />
Public Class circle<br />
<br />
    Private Sub circle_Load(ByVal sender As System.Object, ByVal e As<br />
System.EventArgs) Handles MyBase.Load<br />
<br />
    End Sub<br />
<br />
    Private Sub mainTab_Paint(ByVal sender As Object, ByVal e As<br />
System.Windows.Forms.PaintEventArgs) Handles Me.Paint<br />
        Dim myPen As New<br />
System.Drawing.Pen(System.Drawing.Color.Black)<br />
        myPen.DashStyle = Drawing.Drawing2D.DashStyle.Solid<br />
<br />
        Dim widthPen As Integer = 10<br />
        myPen.Width = widthPen<br />
<br />
        Dim x1 As Integer = 10<br />
        Dim y1 As Integer = 20<br />
        Dim y2 As Integer = 70<br />
        e.Graphics.DrawLine(myPen, x1, y1, x1, y2)<br />
<br />
        x1 = x1 + 25 + widthPen<br />
        e.Graphics.DrawLine(myPen, x1, y1, x1, y2)<br />
<br />
        myPen.Dispose()<br />
    End Sub<br />
<br />
    Private Sub DrawCircle(ByVal sender As Object, ByVal e As<br />
System.Windows.Forms.PaintEventArgs) Handles Me.Paint<br />
<br />
        ' Create pen.:rolleyes:<br />
        Dim redBrush As New SolidBrush(Color.Red)<br />
<br />
        ' Create location and size of ellipse.<br />
        Dim x As Integer = 75<br />
        Dim y As Integer = 25<br />
        Dim width As Integer = 75<br />
        Dim height As Integer = 50<br />
<br />
        ' Draw ellipse to screen.<br />
        e.Graphics.FillEllipse(redBrush, x, y, width, height)<br />
<br />
    End Sub<br />
<br />
End Class<br />