[3booody]

[COLOR="#800000"]السلام عليكم ورحمة الله وبركاته
طريقة اخرى للإفادة وهي لوضع صوره ب اداة PictureBox ضع الكود التالي في زر بوتون[/COLOR]

كود :

Dim bounds As Rectangle = Screen.PrimaryScreen.Bounds
        Dim bitm As New Bitmap(bounds.Width, bounds.Height)
        Dim gr As Graphics = Graphics.FromImage(bitm)
        gr.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, _
CopyPixelOperation.SourceCopy)
        PictureBox1.Size = bitm.Size
        PictureBox1.Image = bitm