Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load 
 
' Create Graph pane 
Dim myPane As GraphPane = zg1.GraphPane 
 
' Set the titles and axis labels 
myPane.Title.Text = "My Bar Chart" 
myPane.XAxis.Title.Text = "Day" 
myPane.XAxis.Scale.Min = 1 
myPane.XAxis.Scale.Max = 7 
myPane.YAxis.Title.Text = "Y-Achse" 
 
Dim list As New PointPairList() 
list.Add(1, 10) 
list.Add(2, 20) 
list.Add(3, 5) 
list.Add(4, 30) 
'add a curve------------------------------ 
Dim myCurveA = myPane.AddCurve("", list, Color.Blue, SymbolType.None) 
zg1.AxisChange() 
End Sub