
   Set m_objDraw = obj
   Draw
End Property
Public Sub Draw()
Dim lhDC As Long
   If Not m_objDraw Is Nothing Then
      m_objDraw.Cls
      If Not m_bEnabled Then
         If Not m_cDisabledLogo Is Nothing Then
            lhDC = m_objDraw.hdc
            m_cDisabledLogo.AlphaPaintPicture lhDC, m_tR.Left, m_tR.Top,
             lConstantAlpha:=192
         End If
      Else
         If Not m_cAlphaLogo Is Nothing Then
            lhDC = m_objDraw.hdc
            If (m_bPressed) Then
               If (m_b