Dim dSize As Size = Windows.Forms.SystemInformation.PrimaryMonitorSize
Dim dHeight = dSize.Height, dWidth = dSize.Width
Dim MemoryImage As New Bitmap(dHeight, dWidth)
Dim MemoryGraphics As Graphics = Graphics.FromHwnd(Me.Handle.ToInt32)
MemoryGraphics.CopyFromScreen(0, 0, 0, 0, dSize)