ext x
       
      CopyMemory ByVal VarPtrArray(bImage), 0&amp;, 4
   End If
      
   Draw
   
End Sub
Public Property Get Enabled() As Boolean
   Enabled = m_bEnabled
End Property
Public Property Let Enabled(ByVal bState As Boolean)
   m_bEnabled = bState
   createDisabled
   Draw
End Property
Private Sub createDisabled()
   Set m_cDisabledLogo = New cAlphaDibSection
   m_cDisabledLogo.Create m_cAlphaLogo.Width, m_cAlphaLogo.Height
   m_cAlphaLogo.PaintPicture m_cDisabledLogo.hdc
   
      Dim tImage As 