Long(m_hInst, m_lAlphaLogoDownId, IMAGE_BITMAP, 0, 0, 0)
      'MsgBox "Alpha Down Logo" &amp; vbCrLf &amp; hBmp &amp; vbCrLf &amp; m_hInst &amp; vbCrLf &amp;
       m_lAlphaLogoId
      m_cAlphaLogoDown.CreateFromHBitmap hBmp
      DeleteObject hBmp
            
   End If
   
   '
End Sub
Public Property Get DrawObject() As Object
   Set DrawObject = m_objDraw
End Property
Public Property Let DrawObject(obj As Object)
   Set m_objDraw = obj
   Draw
End Property
Public Property Set DrawObject(obj As Object)