Класс прорисовки трапеций - Visual Basic .NET

Формулировка задачи:

здравствуйте! помогите, пожалуйста, создать класс закрашенных трапеций, так чтобы потом можно было нарисовать несколько экземпляров этого класса и перемещать их по окошку формы.

Решение задачи: «Класс прорисовки трапеций»

textual
                            Листинг программы 
                        

                            Public Class Form1
    Private Sub Form1_MouseDoubleClick(sender As System.Object, e As System.Windows.Forms.MouseEventArgs) Handles MyBase.MouseDoubleClick
        Static nm As Integer = 1
        Dim pts() As Point
        'pts = {New Point(0, 0), New Point(50, 0), New Point(50, 30), New Point(0, 30)} 'прямоугольник
        'pts = {New Point(0, 100), New Point(100, 100), New Point(50, 0)} 'треугольник
        pts = {New Point(0, 100), New Point(200, 100), New Point(150, 0), New Point(50, 0)} 'трапеция и т.д.
        Dim ob As New Shape(e.X, e.Y, Color.LightGreen)
        With ob
            .Name = "sh" & nm.ToString
            .setShape(pts)
        End With
        nm += 1
        Me.Controls.Add(ob)
    End Sub
End Class
                        