how to make shapes?

how can you make shapes on vb2005?

 

If you want shaped controls, you need to make them. If you want to draw them to the form, you just do it in the Paint event.

Here's some examples of the shape controls.

Code:

Public Class Circle
    Inherits Control
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim Circle As New Drawing2D.GraphicsPath
        Circle.AddEllipse(New Rectangle(New Point(0, 0), Me.Size))
        Me.Region = New Region(Circle)
        Circle.Reset() : Circle.AddEllipse(New Rectangle(New Point(1, 1), Me.Size - New Size(2, 2)))
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.Clear(Me.Parent.BackColor)
        e.Graphics.FillPath(New SolidBrush(Me.BackColor), Circle)
        e.Graphics.DrawPath(New Pen(Me.ForeColor), Circle)
        Circle.Dispose()
        MyBase.OnPaint(e)
    End Sub
End Class

Public Class Square
    Inherits Control
    Protected Overrides Sub OnPaint(ByVal e As System.Windows.Forms.PaintEventArgs)
        Dim Circle As New Drawing2D.GraphicsPath
        Circle.AddRectangle(New Rectangle(New Point(0, 0), Me.Size))
        Me.Region = New Region(Circle)
        Circle.Reset() : Circle.AddRectangle(New Rectangle(New Point(1, 1), Me.Size - New Size(2, 2)))
        e.Graphics.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        e.Graphics.Clear(Me.Parent.BackColor)
        e.Graphics.FillPath(New SolidBrush(Me.BackColor), Circle)
        e.Graphics.DrawPath(New Pen(Me.ForeColor), Circle)
        Circle.Dispose()
        MyBase.OnPaint(e)
    End Sub
End Class

 

aaaaahhh ok now i get it ty