Private Sub CreateGraph_GradientByZBars(ByVal z1 As ZedGraph.ZedGraphControl)
 
        Dim myPane As ZedGraph.GraphPane = z1.GraphPane
        myPane.Title.Text = "Statistik Geschlechterverteilung"
        myPane.XAxis.Title.Text = "Geschlechter"
        myPane.YAxis.Title.Text = "Wert in %"
 
        Dim list As New ZedGraph.PointPairList()
        Dim rand As New Random()
 
        Dim i As Integer
        For i = 0 To 10 Step 1
            Dim x As Double = CDbl(i) + 1
            Dim y As Double = rand.NextDouble() * 1000
            Dim z As Double = i / 2.0
            list.Add(x, y, z)
        Next i
 
        Dim myCurve As ZedGraph.BarItem = myPane.AddBar("Multi-Colored Bars", _
          list, Color.Blue)
        Dim colors As Color() = {Color.LightPink, Color.LightSkyBlue}
        myCurve.Bar.Fill = New ZedGraph.Fill(colors)
        myCurve.Bar.Fill.Type = ZedGraph.FillType.GradientByZ
 
        myCurve.Bar.Fill.RangeMin = 0
        myCurve.Bar.Fill.RangeMax = 4
 
        myPane.Chart.Fill = New ZedGraph.Fill(Color.White, _
        Color.FromArgb(220, 220, 255), 45)
        myPane.Fill = New ZedGraph.Fill(Color.White, _
        Color.FromArgb(255, 255, 225), 45)
 
        ' Tell ZedGraph to calculate the axis ranges
        z1.AxisChange()
 
    End Sub ' CreateGraph_GradientByZBars

VB@rchiv its the Best