PUBLIC SUB Form_Open()
'Texto de la leyenda
Chart.Headers.Values = gra_desc
'Valores de las Gráfica tipo Float
Chart[0].Values = gra_values
'Titulo de la Gráfica
Chart.Title.Text = gra_title
'Leyenda
Chart.Legend.Visible = TRUE
Chart.Legend.Title = gra_legen
'Tipo de Gráfica
Chart.Type = ChartType.Pie
DrawingArea1.Refresh
END
PUBLIC SUB DrawingArea1_Draw()
Chart.Width = DrawingArea1.Height
Chart.Height = DrawingArea1.Width
Chart.Draw 'Muestra la Grafica
END
'Texto de la leyenda
Chart.Headers.Values = gra_desc
'Valores de las Gráfica tipo Float
Chart[0].Values = gra_values
'Titulo de la Gráfica
Chart.Title.Text = gra_title
'Leyenda
Chart.Legend.Visible = TRUE
Chart.Legend.Title = gra_legen
'Tipo de Gráfica
Chart.Type = ChartType.Pie
DrawingArea1.Refresh
END
PUBLIC SUB DrawingArea1_Draw()
Chart.Width = DrawingArea1.Height
Chart.Height = DrawingArea1.Width
Chart.Draw 'Muestra la Grafica
END