Private Declare Function PrintWindow Lib "user32.dll" (ByVal hWnd As IntPtr, _
    ByVal hDC As IntPtr, ByVal dwFlags As Integer) As UInt32
 
    <DllImport("user32.dll")> Public Overloads Shared Function GetWindowRect( _
      ByVal hWnd As IntPtr, ByRef lpRect As RECT) As Boolean
    End Function
 
    Public Overloads Shared Function GetWindowRect(ByVal hWnd As IntPtr) As _
      System.Drawing.Rectangle
        Dim r As New RECT
        GetWindowRect(hWnd, r)
        Return r.ToRectangle
    End Function
 
    Public Overloads Shared Function GetWindowRect(ByVal hWnd As Int32) As _
      System.Drawing.Rectangle
        Return GetWindowRect(New IntPtr(hWnd))
    End Function

 Public Sub FotoMachen()
        Dim g As Graphics
        Dim hdc As IntPtr
 
        Rechteck = GetWindowRect(hWnd)
 
        TmpBmp = New Bitmap(Rechteck.Right - Rechteck.Left, Rechteck.Bottom - _
          Rechteck.Top)
        g = Graphics.FromImage(TmpBmp)
        hdc = g.GetHdc
        PrintWindow(hWnd, hdc, 0)
 
        g.ReleaseHdc()
        g.Flush()
        g.Dispose()
    End Sub