[SaLoOoMX]

كود :

Dim bound As Rectangle              
        Dim screenshot As Bitmap
        Dim gravic As Graphics

        bound = Screen.PrimaryScreen.Bounds
        screenshot = New Bitmap(bound.Width, bound.Height, System.Drawing.Imaging.PixelFormat.Format64bppArgb)
        gravic = gravic.FromImage(screenshot)
        gravic.CopyFromScreen(bound.X, bound.Y, 0, 0, bound.Size, CopyPixelOperation.SourceCopy)

        PictureBox1.Image = screenshot