Imports System.Windows.Forms.DataVisualization.Charting

Public Class Form1
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim FarbeMajorX, FarbeMajorY As Color

        'If ColorDialog1.ShowDialog = DialogResult.OK Then
        'FarbeMajorX = ColorDialog1.Color
        'End If

        'If ColorDialog1.ShowDialog = DialogResult.OK Then
        'FarbeMajorY = ColorDialog1.Color
        'End If

        AchsenEinrichten(FarbeMajorX, FarbeMajorY)
        AchsenEinrichten(Color.LightGray, Color.LightGray)


    End Sub

    Private Sub AchsenEinrichten(ByVal FarbeX As Color, ByVal FarbeY As Color)

        ' HinterGrundFarbe für DiagrammFläche
        Diag1.BackColor = Color.Azure
        Label1.Text = Diag1.Name

        'Vorhandene Serien resetten
        Diag1.Series(0).Name = "Serie 0"
        Label2.Text = Diag1.Series(0).Name
        'Legende der Series(0) nicht anzeigen
        Diag1.Legends(0).Enabled = False
        'DiagrammTyp festlegen: Linien-Daigramm
        Diag1.Series(0).ChartType = SeriesChartType.Line


        'RechtEck-Koordinaten vorgeben
        Diag1.Series(0).Points.AddXY(3, 0)
        Diag1.Series(0).Points.AddXY(0, -3)
        Diag1.Series(0).Points.AddXY(-3, 0)
        Diag1.Series(0).Points.AddXY(0, 3)
        Diag1.Series(0).Points.AddXY(3, 0)



        'Koordinaten-Ursprung definieren
        Diag1.ChartAreas(0).AxisX.Crossing = 0.0
        Diag1.ChartAreas(0).AxisY.Crossing = 0.0
        'X- und Y-Achse mit Pfeil
        Diag1.ChartAreas(0).AxisX.ArrowStyle = AxisArrowStyle.SharpTriangle
        Diag1.ChartAreas(0).AxisY.ArrowStyle = AxisArrowStyle.SharpTriangle
        'Farbe der Achsen
        Diag1.ChartAreas(0).AxisX.LineColor = Color.Red
        Diag1.ChartAreas(0).AxisY.LineColor = Color.Red
        'X-Achse zeichnen (Ohne einen Punkt in den Series(0) wird keine Achse gezeichnet!!!)
        Diag1.ChartAreas(0).AxisX.Minimum = -4
        Diag1.ChartAreas(0).AxisX.Maximum = 4
        Diag1.ChartAreas(0).AxisY.Minimum = -4
        Diag1.ChartAreas(0).AxisY.Maximum = 4

        ' GitterLinien
        Diag1.ChartAreas(0).AxisX.MajorGrid.Enabled = True
        Diag1.ChartAreas(0).AxisX.MajorGrid.LineColor = FarbeX 'Color.Green
        Diag1.ChartAreas(0).AxisX.MajorGrid.Interval = 1
        Diag1.ChartAreas(0).AxisX.MinorGrid.Enabled = False
        Diag1.ChartAreas(0).AxisX.MinorGrid.Interval = 0.5

        Diag1.ChartAreas(0).AxisY.MajorGrid.Enabled = True
        Diag1.ChartAreas(0).AxisY.MajorGrid.LineColor = FarbeY 'Color.Green
        Diag1.ChartAreas(0).AxisY.MajorGrid.Interval = 1
        Diag1.ChartAreas(0).AxisY.MinorGrid.Enabled = False
        Diag1.ChartAreas(0).AxisY.MinorGrid.Interval = 0.5

        'ZwischenStriche für HauptGitter
        Diag1.ChartAreas(0).AxisX.MajorTickMark.Interval = 0.5
        Diag1.ChartAreas(0).AxisY.MajorTickMark.Interval = 0.5

    End Sub
End Class