— Барсик — кот, игрушка
— Васька — кот, дикое животное
— Бобик — собака, игрушка
— Жучка — собака, дикое животное
— Тузик — собака, сотрудник ВОХР

 ' VB
 Dim MyObj As (Person, Male)

 // C++
 (Person, Male) *MyObj;

V> ' VB
V> Dim MyObj As (Person, Male)
V>

class CMyObject : 
  public CCompoundObject, CPersonT<CMyObject>, CMaleT<CMyObject>
{
};

CMyObject myObj;

V>В более сложном случае (для этого нужно приложить соответствующее усилие при программировании) мы можем наложить условие, что, например, объект может быть либо Male, либо Female, а и тем и другим одновременно быть не может. Да простят меня представители сексуальных меньшинств

V> ' VB
V> Dim MyObj As (Person, Male)
V>

V> // C++
V> (Person, Male) *MyObj;
V>

typedef const char cchar_t;

// примесь обьекта
template <class I, class T>
struct Part : I {
    T& self() { return *static_cast<T*>(this); }
};

// Абстрактный фрукт
struct IFruit {
    cchar_t* kind() { return _IFruit_kind(); }
protected:
    virtual cchar_t* _IFruit_kind() = 0;
};

// Абстрактный цветной обьект
struct IColored {
    cchar_t* color_get() { return _IColored_color_get(); }
    void color_set( cchar_t *color ) { _IColored_color_set( color ); }
protected:
    virtual cchar_t* _IColored_color_get() = 0;
    virtual void _IColored_color_set( cchar_t* ) = 0;
};

// цветной фрукт (подразумевается наличие в классе IColored и IFruit)
struct IColoredFruit {
    cchar_t* name() { return _IColoredFruit_name(); }
protected:
    virtual cchar_t* _IColoredFruit_name() = 0;
};

// яблоко
template <class T>
class Apple : public Part<IFruit,T> {
    cchar_t* _IFruit_kind() { return "apple"; }
};

// манго
template <class T>
class Mango : public Part<IFruit,T> {
    cchar_t* _IFruit_kind() { return "mango"; }
};

// абстрактный цветной обьект. реализация
template <class T>
class Colored : public Part<IColored,T> {
    std::string    _m_color;

    cchar_t* _IColored_color_get() { return _m_color.c_str(); }
    void _IColored_color_set( cchar_t *color ) { _m_color = color; }
};

// цветной фрукт
template <class T>
class ColoredFruit : public Part<IColoredFruit,T> {
    cchar_t* _IColoredFruit_name() {
        static char buf[80];
        sprintf( buf, "%s %s", self().IColored::color_get(), self().IFruit::kind() );
        return buf;

    }
};

// а теперь будем химичить
struct MyApple :
    Apple<MyApple>,
    Colored<MyApple>,
    ColoredFruit<MyApple>
{
};

struct MyMango :
    Mango<MyMango>,
    Colored<MyMango>,
    ColoredFruit<MyMango>
{
};

void test() {
    MyApple a;
    MyMango m;

    a.color_set( "green" );
    m.color_set( "red" );

    cchar_t *a_name = a.name(); // green apple
    cchar_t *m_name = m.name(); // red mango
}