27-10-12, 05:20 PM
وعليكم السلام
كود :
Dim Bit As New Bitmap([color=#0000cd]PictureBox1[/color].Image)
Dim G As Graphics = Graphics.FromImage(Bit)
[COLOR=#ff0000]G.DrawLine(Pens.Black, New Point(5, 5), New Point(30, 30))
[/COLOR] [color=#0000cd]PictureBox1[/color].Image = Bit