こんな風なのはどうですか？（同じような図形を描画してみました）
わりと自由に図形が描画できると思います。

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        'ImageオブジェクトのGraphicsオブジェクトを作成する
        Dim g As Graphics = Me.CreateGraphics

        Dim xx As Integer = 0
        '多角形の点の配列を作成
        Dim ps As Point() = {New System.Drawing.Point(25 + xx, 0),
                New System.Drawing.Point(0 + xx, 50),
                New System.Drawing.Point(20 + xx, 50),
                New System.Drawing.Point(5 + xx, 100),
                New System.Drawing.Point(40 + xx, 40),
                New System.Drawing.Point(20 + xx, 40),
                New System.Drawing.Point(40 + xx, 0),
                New System.Drawing.Point(25 + xx, 0)}
        Dim bra As New SolidBrush(カラー_32bit("80FF0000"))
        '多角形を描画する
        g.FillPolygon(bra, ps)

        '多角形2の点の配列を作成
        xx = 5
        Dim ps2 As Point() = {New System.Drawing.Point(25 + xx, 0),
                New System.Drawing.Point(0 + xx, 50),
                New System.Drawing.Point(20 + xx, 50),
                New System.Drawing.Point(5 + xx, 100),
                New System.Drawing.Point(40 + xx, 40),
                New System.Drawing.Point(20 + xx, 40),
                New System.Drawing.Point(40 + xx, 0),
                New System.Drawing.Point(25 + xx, 0)}
        Dim bra2 As New SolidBrush(カラー_32bit("80808080"))
        '多角形2を描画する
        g.FillPolygon(bra2, ps2)

        '多角形の周りに線を描画する
        g.DrawPolygon(Pens.Black, ps)

        'リソースを解放する
        bra.Dispose()
        bra2.Dispose()
        g.Dispose()
    End Sub

    Public Function カラー_32bit(hx As String) As Color
        Dim colTx As String = "&H" & hx
        Dim db As Double = Val(colTx)
        Dim int As Integer = CInt(db)
        Dim col As Color = Color.FromArgb(int)
        Return col
    End Function