Steema Central

Code: Select all

Public Class Form11

    Private Sub Form11_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim lines As New Steema.TeeChart.Styles.Line
        TChart1.Series.Add(lines)
        lines.Add(0, 3)
        lines.Add(1, 4)
        lines.Add(2, 5)
        lines.Add(3, 6)

        Dim labels As Steema.TeeChart.AxisLabelsItems = TChart1.Axes.Bottom.Labels.Items
        For i As Integer = 0 To 3 Step 1
            labels.Add(i, "A" & i)
        Next
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Me.TChart1.Axes.Bottom.Labels.Visible = False
    End Sub
End Class