Нарисовать простыми геометрическими фигурами птичку

dim a as new bitmap(300,300)
dim g as graphics=graphics.fromimage(a)
g.drawline(pens.black,Х первой точки, У первой точки, _
Х второй точки, У второй точки)
g.drawline(и т.д.
Picturebox1.image=a
g.dispose

    Dim pts As New List(Of Point)
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim Data As String = "52 20 67 15 84 12 94 10 106 1 120 0 143 5 153 16 159 36 155 51 145 68 138 76 129 89 124 101 122 118 " & _
        "123 138 127 150 130 158 141 158 158 157 185 163 211 175 241 194 269 224 286 250 301 276 302 294 299 296 280 290 287 " & _
        "299 287 309 279 310 260 296 247 286 226 281 209 280 197 275 187 272 190 294 188 298 174 273 151 257 126 237 113 206 " & _
        "101 178 99 161 101 136 102 111 107 90 114 78 120 71 130 60 135 49 131 36 124 31 100 23 89 20"
        Dim Lns As String() = Data.Split
        For I As Integer = 0 To Lns.Length - 1 Step 2
            Dim Pt As New Point(Lns(I), Lns(I + 1))
            Pts.Add(Pt)
        Next
        Dim BM As New Bitmap(300, 400)
        Dim G As Graphics = Graphics.FromImage(BM)
        G.SmoothingMode = Drawing2D.SmoothingMode.AntiAlias
        G.FillClosedCurve(Brushes.Black, Pts.ToArray)
        Dim mP As New Pen(Color.Black, 4)
        G.DrawLine(mP, 188, 290, 192, 321)
        G.DrawLine(mP, 192, 321, 171, 420)
        G.DrawLine(mP, 225, 280, 246, 305)
        G.DrawLine(mP, 245, 304, 190, 415)
        G.FillEllipse(Brushes.White, New Rectangle(107, 7, 4, 4))
        PictureBox1.BackgroundImageLayout = ImageLayout.Zoom
        PictureBox1.BackgroundImage = BM
    End Sub

Dim pts As New List(Of Point)

Dim pts As New List(Of Point)