"Линза" на VB6

[The trick]

С помощью этой программы можно просматривать под увеличением определенный участок экрана, увеличение можно изменять колесиком, выход - ESC.

[Don Leno]

А как терь выдернуть эту функцию и сделать ее отдельной. Что то вроде такого:
Sub Lupa (pic as std stdPicture, Strength as single). Чтоб эффект можно было применять к любой картинке.
Пытался выдернуть код, но провода еще какие-то оставались)))
Единственное что пока смог это отучить форму от скроллинга. Как я понял Prepare - копирует участок с изображением, а MaxLens - создает эффект искажения. Вопрос: как мне все это соединить для работы с рисунком, убрав все что связано с формой.

[Don Leno]

Trick, спасибо тебе за этот эффект, у меня получилось вырезать функцию и использовать под свои нужды. К сожалению, не получилось создать эффекта вращающейся планеты, но сама функция мне будет очень полезна!!)))))

Только вырезаная функция превосходно работает с Пиктуребоксом, а с DC созданным через Апи не получилось реализовать((( А хочется чтоб работала без Пиктуребоксов...

Вот вырезаная функция: