Private Sub CreateGraph_GradientByZBars(ByVal z1 As ZedGraph.ZedGraphControl)
 
        Dim myPane As ZedGraph.GraphPane = z1.GraphPane
        myPane.Title.Text = "Geschlechterverteilung mit ZedgraphControl"
        myPane.XAxis.Title.Text = "Geschlecht"
        myPane.YAxis.Title.Text = "Wert in %"
 
        Dim list As New ZedGraph.PointPairList()
        Dim rand As New Random()
 
        Dim bs As BindingSource = Form1.Tab1BindingSource
        Dim dt As DataTable = Form1.TestDataSet.Tab1
        bs.DataSource = Form1.TestDataSet.Tab1
 
        Dim i As Integer
 
        For i = 0 To 15 Step 1
            Dim x As Integer = CDbl(i) + 1
            Dim y As Integer = 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