Dim screenY As Integer = Screen.PrimaryScreen.Bounds.Y

     Dim boundsSize As Size = Screen.PrimaryScreen.Bounds.Size
     Dim gfxFormat As PixelFormat = PixelFormat.Format32bppArgb
     Dim picture As New Bitmap(screenWidth, screenHeight, gfxFormat)
     Dim graphics As Graphics = Graphics.FromImage(picture)

     graphics.CopyFromScreen(screenX, screenY, 0, 0, boundsSize, CopyPixelOperation.SourceCopy)

     Return picture
End Function