Как отследить потерю ресурсов?

[Matew]

Не могу найти где теряю оперативку (не знаю как объянсить-не все за собой удаляю, что создаю). Типа делаю
hOldPen = SelectObject(pbDoc(0).hDc, CreatePen(2, 1, RGB(255, 0, 0)))
и не делаю
DeleteObject SelectObject(pbDoc(0).hDc, hOldPen).
Это как то можно отследить не визуально?

[Matew]

В таком коде я что-то упустил?

Код: Выделить всё

    Dim hBmpPrev As Long
    Dim ret As Long, pbDocHeight As Long, pbDocWidth As Long
    pbDochDC = CreateCompatibleDC(GetDC(0))
    pbDocHeight = 1000
    pbDocWidth = 1000
    hBmp = CreateCompatibleBitmap(GetDC(0), pbDocWidth, pbDocHeight)
    hBmpPrev = SelectObject(pbDochDC, hBmp)
    SetBkMode pbDochDC, 1
' Здесь рисуем на pbDochDC
BitBlt pbDoc(0).hDc, 0, 0, pbDoc(0).Width, pbDoc(0).Height, pbDochDC, 0, 0, SRCCOPY
    hBmp = SelectObject(pbDochDC, hBmpPrev)
    ret = DeleteDC(pbDochDC)
    DeleteObject hBmp