Private Function Screenshot(ByVal Ctrl As Control) As Bitmap
        Dim w As Integer = Ctrl.Width
        Dim h As Integer = Ctrl.Height
        Screenshot = New Bitmap(w, h)
        Ctrl.DrawToBitmap(Screenshot, Rectangle.FromLTRB(0, 0, w, h))
        Return Screenshot
    End Function