Public Function Screenshot(ByVal Ctrl As Control) As Bitmap
        ' Erstellt einen Screenshot des übergebenen Controls / der übergebenen 
        ' Form.
        ' Erfordert Microsoft .NET >= 2.0 (Control.DrawToBitmap)
        ' Der Aufrufer ist für eine Entsorgung der returnierten Bitmap 
        ' zuständig.
 
        Dim bs As Rectangle = Ctrl.RectangleToScreen(Ctrl.Bounds)
 
        Dim bm As New Bitmap(Ctrl.Width, Ctrl.Height)
        Dim g As Graphics = Graphics.FromImage(bm)
 
        g.CopyFromScreen(bs.Left, bs.Top, 0, 0, bs.Size)
        g.Dispose()
        Return bm
 
    End Function

-----------------------------------
Betriebssystem: Schrott (Vista)
Entwicklungsumgebung: VS 2008