Private Function Fotografieren(ByVal Name As String) As Bitmap
        ' My.Application.DoEvents()
        Dim sVollerName As String = Tischname(Name)
        Dim hwnd1 As IntPtr
        hwnd1 = CType(FindWindow(vbNullString, sVollerName), IntPtr)'Liefert  
        ' gesamten Namen
        Dim rc As RECT
        GetWindowRect(hwnd1, rc)
        Dim bm As New Bitmap(rc.right - rc.left, rc.bottom - rc.top)
        Dim g As Graphics = Graphics.FromImage(bm)
        Dim hdc As IntPtr = g.GetHdc()
        PrintWindow(hwnd1, hdc, 0)
        g.ReleaseHdc(hdc)
        g.Flush()
        g.Dispose()
        Dim bGesamt As Bitmap
        Dim bCards As New Bitmap(iCardsYAchse, iCardsXAchse)
        Dim gCards As Graphics = Graphics.FromImage(bCards)
        gCards.DrawImage(bm, New Rectangle(0, 0, iCardsYAchse, iCardsXAchse), _
          iCardsAchse(2), iCardsAchse(1), iCardsYAchse, iCardsXAchse, _
          GraphicsUnit.Pixel)
        bGesamt = bCards
 
        Return bGesamt
        bCards = Nothing
        bm = Nothing
        bGesamt = Nothing
    End Function