Public Function MakeScreenShot()
        ' Alles nötige deklarieren
        Dim FrontBuffer As Direct3DSurface8
        Dim PE As PALETTEENTRY
        Dim rt As RECT
        Dim tmpSD As D3DSURFACE_DESC
 
        ' Den FrontBuffer des RenderDevice holen, 
        ' also die gezeichnete Szene
        FrontBuffer = Device.GetRenderTarget
 
 
        ' Die benötigten Infos über das RenderDevice 
        ' holen ( Höhe und Breite)
        FrontBuffer.GetDesc(tmpSD)
 
        With rt
            .bottom = tmpSD.Height - 1
            .left = 0
            .right = tmpSD.Width - 1
            .top = 0
        End With
 
    End Function