Private Sub Form1_Paint(ByVal sender As Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles Me.Paint

        'Imposto l'origine degli assi al centro della Form (essendo l'origine in alto a sinistra non vedrei le X e le Y negative)
        e.Graphics.TranslateTransform(Me.Width / 2, Me.Height / 2)

        Dim mPoints As ArrayList = New ArrayList()

        Dim x As Single
        'Dim y As Single 'ESSENDO SEMPRE IL QUADRATO DI X POSSO NON USARLA

        Dim penna As Pen = New Pen(Color.Red, 5)

        'Questi non so a cosa servono
        Dim xoff As Single = 100
        Dim yoff As Single = 100
        xoff = 100
        yoff = 100
        For x = -100 To 100
            'aggiungo i punti ad una lista
            mPoints.Add(New Point(x, (x ^ 2)))
        Next

        'trasformo l'Array in punti
        Dim pointArray() As Point = mPoints.ToArray(mPoints(0).GetType())

        'Disegno la curva
        e.Graphics.DrawCurve(penna, pointArray, 1)

    End Sub