p
End Sub

Private Sub ClearUp(ByVal lIndex As Long)
   If (m_hDC(lIndex) &lt;&gt; 0) Then
      If (m_hDib(lIndex) &lt;&gt; 0) Then
         SelectObject m_hDC(lIndex), m_hBmpOld(lIndex)
         DeleteObject m_hDib(lIndex)
      End If
      DeleteObject m_hDC(lIndex)
   End If
   m_hDC(lIndex) = 0: m_hDib(lIndex) = 0: m_hBmpOld(lIndex) = 0: m_lPtr(lIndex)
    = 0
End Sub

Private Function CreateDIB( _
      ByVal lIndex As Long, _
      ByVal lHDC As Long, _
      ByVal lWidth As Long, _
      ByVal lHei