Private Const SRCCOPY As Integer = &HCC0020&
    Private Declare Ansi Function BitBlt Lib "gdi32" (ByVal hDestDC As IntPtr, _
      ByVal x As Integer, ByVal y As Integer, ByVal nWidth As Integer, ByVal _
      nHeight As Integer, ByVal hSrcDC As IntPtr, ByVal xSrc As Integer, ByVal _
      ySrc As Integer, ByVal dwRop As Integer) As Integer
    Private Declare Function GetDC Lib "user32" Alias "GetDC" (ByVal hwnd As _
    Integer) As IntPtr
    Private Declare Function ReleaseDC Lib "user32" Alias "ReleaseDC" (ByVal _
    hwnd As Integer, ByVal hdc As IntPtr) As Integer

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim g1 As Graphics
        Dim dc1 As IntPtr, dc2 As IntPtr
        Dim img As Image
 
        img = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width(), _
          Screen.PrimaryScreen.WorkingArea.Height)
        g1 = Graphics.FromImage(img)
 
        dc2 = g1.GetHdc()
        dc1 = GetDC(0)
        BitBlt(dc2, 0, 0, Screen.PrimaryScreen.WorkingArea.Width(), _
          Screen.PrimaryScreen.WorkingArea.Height, dc1, 0, 0, SRCCOPY)
        ReleaseDC(0, dc1)
 
        g1.ReleaseHdc(dc1)
 
        img.Save("c:\Screen.png", System.Drawing.Imaging.ImageFormat.Png)
        MessageBox.Show("Desktop-Screenshot gesichert", "Info")
    End Sub

    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim g1 As Graphics
        Dim dc1 As IntPtr, dc2 As IntPtr
        Dim img As Image
 
        Me.Visible = False
 
        img = New Bitmap(Screen.PrimaryScreen.WorkingArea.Width(), _
          Screen.PrimaryScreen.WorkingArea.Height)
        g1 = Graphics.FromImage(img)
 
        dc1 = GetDC(0)
        dc2 = g1.GetHdc()
        BitBlt(dc2, 0, 0, Screen.PrimaryScreen.WorkingArea.Width(), _
          Screen.PrimaryScreen.WorkingArea.Height, dc1, 0, 0, SRCCOPY)
        ReleaseDC(0, dc1)
        g1.ReleaseHdc(dc1)
        PictureBox1.Image = img
        Me.Visible = True
End Sub