[vb.net]Disegnare linee con button

[seifter]

Ciao a tutti.
Immagino sia una cosa da nulla ma non riesco a venirne fuori.
Devo disegnare un serie di linee in un picturebox prelevando le coordinate da una DataGrid,e fino qui tutto bene il problema sorge nel momento in cui voglio che le linee vengano disegnate alla pressione di un button.
Il codice del button è questo:

 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.Windows.Forms.PaintEventArgs) Handles PictureBox1.Paint
        'e.Graphics.Clear(Me.BackColor)
        Dim gr As Graphics = e.Graphics
        gr.DrawLine(New Pen(Color.Black), 20, 20, 40, 40)
        gr.DrawLine(New Pen(Color.Black), 40, 40, 40, 80)
End Sub

Il problema è che le linee vengono disegnate all'apertura del form e non alla pressione del button.

Grazie