en
               
               Dim lhDCDisp As Long
               Dim lhDC As Long
               Dim lhBmp As Long
               Dim lhBmpOld As Long
               Dim lDishIml As Long
                        
               lhDCDisp = CreateDCAsNull("DISPLAY", ByVal 0&amp;, ByVal 0&amp;, ByVal
                0&amp;)
               lhDC = CreateCompatibleDC(lhDCDisp)
               lhBmp = CreateCompatibleBitmap(lhDCDisp, o.ImageWidth,
                o.ImageHeight)
               DeleteDC lhDCDisp
