 As Long _
    ) As Boolean
   ClearUp lIndex
   m_hDC(lIndex) = CreateCompatibleDC(Me.hDC)
   If (m_hDC(lIndex) &lt;&gt; 0) Then
       If (CreateDIB(lIndex, m_hDC(lIndex), lWidth, lHeight, m_hDib(lIndex)))
        Then
           m_hBmpOld(lIndex) = SelectObject(m_hDC(lIndex), m_hDib(lIndex))
           Create = True
       Else
           DeleteDC m_hDC(lIndex)
           m_hDC(lIndex) = 0
       End If
   End If
End Function

Private Sub LoadPictureBlt( _
        ByVal lIndex As Long, _
        ByVal lH