Private Declare Function BitBlt Lib "gdi32" _
  (ByVal hDCDest As Long, ByVal XDest As Long, _
   ByVal YDest As Long, ByVal nWidth As Long, _
   ByVal nHeight As Long, ByVal hDCSrc As Long, _
   ByVal XSrc As Long, ByVal YSrc As Long, _
   ByVal dwRop As Long) As Long
Private Declare Function GetDesktopWindow Lib "user32" () As Long
Private Declare Function GetWindowDC Lib "user32" _
  (ByVal hWnd As Long) As Long
Private Declare Function ReleaseDC Lib "user32" _
  (ByVal hWnd As Long, ByVal hdc As Long) As Long
Private Sub Command1_Click()
 
  PrintScreen
 
End Sub
Private Sub PrintScreen()
   Dim hWndDesk As Long
   Dim hDCDesk As Long
   Dim LeftDesk As Long
   Dim TopDesk As Long
   Dim WidthDesk As Long
   Dim HeightDesk As Long
 
  'define the screen coordinates (upper
  'corner (0,0) and lower corner (Width, Height)
   LeftDesk = 0
   TopDesk = 0
   WidthDesk = "1600"
   HeightDesk = "1200"
 
  'get the desktop handle and display context
   hWndDesk = GetDesktopWindow()
   hDCDesk = GetWindowDC(hWndDesk)
 
  'copy the desktop to the picture box
   Call BitBlt(Picture1.hdc, 0, 0, _
              WidthDesk, HeightDesk, hDCDesk, _
              LeftDesk, TopDesk, vbSrcCopy)
 
   Call ReleaseDC(hWndDesk, hDCDesk)
End Sub
    Private Sub Button1_Click()
      'speichern
     SavePicture Picture1.Image, "c:\temp.bmp"
    End Sub