[VB NET 2005] Grafico Excel

    Private Sub DisegnaGrafico()

        'Dichiaro un PictureBox e lo aggiungo al form
        Dim Pict As New PictureBox
        Pict.Width = 263
        Pict.Height = 162
        Pict.Left = 5
        Pict.Top = 5
        Me.Controls.Add(Pict)

        'Dichiaro un Bitmap
        Dim Bmp As Bitmap = New Bitmap(Pict.Width, Pict.Height)

        'Dichiaro l' oggetto Graphics per disegnare sul Bitmap
        Dim Gr As Graphics = Graphics.FromImage(Bmp)

        'Riempio di bianco l' Immagine
        Gr.FillRectangle(Brushes.White, 0, 0, Pict.Width, Pict.Height)

        'Disegno l' asse Y
        Gr.DrawLine(Pens.Black, 10, 10, 10, Pict.Height - 10)
        'Disegno l'asse X
        Gr.DrawLine(Pens.Black, 10, Pict.Height - 10, Pict.Width - 10, Pict.Height - 10)

        'Disegno la linea che rappresenta  dati
        Gr.DrawLine(Pens.Red, 10, Pict.Height - 50, 50, Pict.Height - 20)
        Gr.DrawLine(Pens.Red, 50, Pict.Height - 20, 100, Pict.Height - 50)
        Gr.DrawLine(Pens.Red, 100, Pict.Height - 50, 150, Pict.Height - 20)
        Gr.DrawLine(Pens.Red, 150, Pict.Height - 20, 200, Pict.Height - 50)
        Gr.DrawLine(Pens.Red, 200, Pict.Height - 50, 250, Pict.Height - 20)

        'associo la bitmap alla picturebox
        Pict.Image = Bmp

    End Sub