Public Sub ShowScreen()
        Dim hWnd As IntPtr = Info.Handle 'Hier befindet sich das Window-Handle
        Dim hDC As Int32 = GetWindowDC(hWnd)
 
        If (hDC) Then
            Dim hDCMem As Int32 = CreateCompatibleDC(hDC)
 
            If (hDCMem) Then
                Dim cRectangle As Rectangle
 
                GetWindowRect(hWnd, cRectangle)
 
                Dim Width As Integer = cRectangle.Right - cRectangle.Left
                Dim Height As Integer = cRectangle.Bottom - cRectangle.Top
 
                Dim hBitmap As Int32 = CreateCompatibleBitmap(hDC, Width, _
                  Height)
 
                If (hBitmap) Then
                    SelectObject(hDCMem, hBitmap)
 
                    PrintWindow(hWnd, hDCMem, 0)
 
                    With picMain
                        SetStretchBltMode(GetDC(.Handle), HALFTONE)
                        StretchBlt(GetDC(.Handle), -3, -3, .Width, .Height, _
                          hDCMem, 0, 0, Width, Height, &HCC0020)
                    End With
 
                    DeleteObject(hBitmap)
                End If
 
                DeleteObject(hDCMem)
            End If
 
            ReleaseDC(hWnd, hDC)
        End If
    End Sub