tantAlpha / 255)
      Next y
   Next x
         
   CopyMemory ByVal VarPtrArray(bDibDst), 0&amp;, 4
   CopyMemory ByVal VarPtrArray(bDibSrc), 0&amp;, 4
      
End Sub

Public Property Get hdc() As Long
    hdc = m_hDC
End Property
Public Property Get hDib() As Long
    hDib = m_hDIb
End Property
Public Property Get DIBSectionBitsPtr() As Long
    DIBSectionBitsPtr = m_lPtr
End Property
Public Sub Clear( _
      Optional ByVal lAlpha As Byte = 0 _
   )
   
Dim bDib() As Byte
Dim x As Long, y As Long
Dim tS