🚀 go-pugleaf

Witam i proszę o pomoc. Otóż napisałem kontrolkę, której zadaniem jest zrzut 
ekranu formy, na której jest umieszczona (co 1 min.).
Przy okazji muszę uzyskać efekt przezroczystości poprzez łączenie zrzuconego 
obrazu z czarno-białą maską i tłem.
Kontrolka ma publiczną procedurę ZrzutOkna wywoływaną z formularza przez 
Timer.
Jednak po uruchomieniu program stopniowo pożera pamięć. Może ktoś podpowie 
co robię źle?

Kod wygląda następująco:

Private maska As StdPicture    - maska i kolor to bitmapy służące do 
uzyskania przezroczystości
Private kolor As StdPicture
Private maskaDC As Long
Private kolorDC As Long
Private obrazHwnd As Long    - uchwyt do okna formularza
Private obrazDC As Long

Private Sub UserControl_Initialize()

obrazHwnd = GetParent(UserControl.hwnd)
obrazDC = GetDC(obrazHwnd)

maskaDC = CreateCompatibleDC(obrazDC)
kolorDC = CreateCompatibleDC(obrazDC)

Set maska = LoadResPicture(101, vbResBitmap)
Set kolor = LoadResPicture(102, vbResBitmap)

SelectObject maskaDC, maska
SelectObject kolorDC, kolor

End Sub
***********************************************
Public Sub ZrzutOkna()

BitBlt maskaDC, 0, 0, 550, 540, obrazDC, 143, 0, SRCAND
BitBlt kolorDC, 0, 0, 550, 540, maskaDC, 0, 0, SRCPAINT

Dim HPicture As Long

HPicture = HBitmapFromDC(kolorDC, 550, 540)

SaveJPG HPicture, "c:\obrazek.jpg", 20

End Sub