请问释放图像占用内存的有关问题

请教释放图像占用内存的问题
我的网盘里的VB目录下放有一个“放大镜”代码，初始打开时可以正常运行，但是运行一段时间后会提示内存溢出而终止，而且窗体自动重画等机制停止，主要作图代码如下，我用Timer每50毫秒调用一次，请问这样的代码运行起来哪里会出现问题？谢谢！

VB code

hScrDC = GetDC(GetDesktopWindow)hBMPDC = CreateCompatibleDC(hScrDC)hBMP = CreateCompatibleBitmap(hScrDC, 54, 54)hPreBMP = SelectObject(hBMPDC, hBMP)StretchBlt hBMPDC, 0, 0, 54, 54, hScrDC, PT.X - 32 \ lTimes, PT.Y - 32 \ lTimes, 64 \ lTimes, 64 \ lTimes, vbSrcCopyStretchBlt hDC, 5, 41, 54, 54, hBMPDC, 0, 0, 54, 54, vbSrcCopyReleaseDC GetDesktopWindow, hScrDCSelectObject hBMPDC, hPreBMPDeleteDC hBMPDCDeleteObject hBMP