Dim bmp as New Bitmap(PctBx.Width, PctBx.Height) Dim g as Graphics g = Graphics.FromImage(bmp) 'là tu fais tout ce que tu veux avec ton graphics "g" entre autres : g.DrawLine(New Pen(Color.Black), 0, 0, 300, 300) '[...] 'puis pour rendre persistant l'image PctBx.BackgroundImage = bmp PctBx.Refresh()