Dim zed = New ZedGraph.ZedGraphControl() With { _
    .Dock = System.Windows.Forms.DockStyle.Fill _
}

Dim poly = New ZedGraph.PolyObj() With { _
    .Points = New () {New ZedGraph.PointD(0, 0), New ZedGraph.PointD(0.5, 1), New ZedGraph.PointD(1, 0.5), New ZedGraph.PointD(0, 0)}, _
    .Fill = New ZedGraph.Fill(Color.Blue), _
    .ZOrder = ZedGraph.ZOrder.E_BehindCurves _
}

Dim poly1 = New ZedGraph.PolyObj() With { _
    .Points = New () {New ZedGraph.PointD(1, 0), New ZedGraph.PointD(0.25, 1), New ZedGraph.PointD(0.5, 0), New ZedGraph.PointD(1, 0)}, _
    .Fill = New ZedGraph.Fill(Color.Red), _
    .ZOrder = ZedGraph.ZOrder.E_BehindCurves _
}

zed.GraphPane.AddCurve("Line", New () {0.0, 1.0}, New () {0.0, 1.0}, Color.Green)
zed.GraphPane.GraphObjList.Add(poly1)
zed.GraphPane.GraphObjList.Add(poly)