1.Dim bounds As Rectangle
2.Dim screenshot As System.Drawing.Bitmap
3.Dim graph As Graphics
4.bounds = Screen.PrimaryScreen.Bounds
5.screenshot = New System.Drawing.Bitmap(bounds.Width, bounds.Height, System.Drawing.Imaging.PixelFormat.Format32bppArgb)
6.graph = Graphics.FromImage(screenshot)
7.graph.CopyFromScreen(bounds.X, bounds.Y, 0, 0, bounds.Size, CopyPixelOperation.SourceCopy)
8.PictureBox1.Image = screenshot
