Imports System.Windows.Forms.DataVisualization.Charting
 
Public Class Form1
    Dim WithEvents Chart1 As New Chart With {.Width = 1000, .Height = 800, _
      .BackColor = Color.Green, .Parent = Me}
    Dim WithEvents Lb As New ListBox With {.Dock = DockStyle.Right, .Width = _
    250, .Font = New Font("Arial", 12), .Parent = Me}
    Dim Area As New ChartArea
    Dim Rnd As New Random
 
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) _
      Handles MyBase.Load
        Me.Size = New Size(1280, 900)
        Me.BackColor = Color.Green
        Me.CenterToScreen()
        Area.Area3DStyle.Enable3D = True
        Chart1.ChartAreas.Add(Area)
        Lb.Items.AddRange([Enum].GetNames(GetType(SeriesChartType)))
        Lb.SelectedIndex = 14
    End Sub
 
    Private Sub Lb_SelectedIndexChanged(sender As Object, e As _
      System.EventArgs) Handles Lb.SelectedIndexChanged
        Chart1.Series.Clear()
        Dim ser1 As New Series()
        ser1.ChartType = CType(Lb.SelectedIndex, SeriesChartType)
        For i = 1 To 20
            ser1.Points.Add(Rnd.Next(10, 90))
            'ser1.Points.AddXY(i, Rnd.Next(10, 90))
        Next
        Chart1.Series.Add(ser1)
    End Sub
End Class