Managed C++/CLI

// Get the current font
LOGFONT lFont;
NONCLIENTMETRICS ncm;
ncm.cbSize = sizeof(NONCLIENTMETRICS);
VERIFY(SystemParametersInfo(SPI_GETNONCLIENTMETRICS,
    sizeof(NONCLIENTMETRICS), &ncm, 0));
lFont = ncm.lfMessageFont;

public ref class basicGrObject abstract
{
public:
	basicGrObject(){}
	/*
	* Derived class must implement this function
	*/
	virtual void calculate() abstract;
protected:
	~basicGrObject(){}
};

public ref class extended_1_GrObject : public basicGrObject
{
public:
	extended_1_GrObject()
	{
		// my code 
	}
	virtual void calculate() override
	{
		// my code 
	}
protected:
	~extended_1_GrObject()
	{
		// my code 
	}
};
public ref class extended_2_GrObject : public basicGrObject
{
public:
	extended_2_GrObject()
	{
		// my code 
	}
	virtual void calculate() override
	{
		// my code 
	}
protected:
	~extended_2_GrObject()
	{
		// my code 
	}
};

System::Collections::ArrayList ^my_list=gcnew System::Collections::ArrayList();

extended_1_GrObject ^extended_cl_1=gcnew extended_1_GrObject();
my_list->Add(extended_cl_1);
extended_2_GrObject ^extended_cl_2=gcnew extended_2_GrObject();
my_list->Add(extended_cl_2);
//doing this many time

//other sample code
for (int i=0;i<my_list->Count;i++) {
	
	//by now my bad bad way of calling the same method is
	if (my_list[i]->GetType()->Name=="extended_1_GrObject" ) {
		extended_1_GrObject ^tmp=static_cast<extended_1_GrObject^>(my_list[i]);
		tmp->calculate();
	}
	else if (my_list[i]->GetType()->Name=="extended_2_GrObject" ) {
		extended_2_GrObject ^tmp=static_cast<extended_2_GrObject^>(my_list[i]);
		tmp->calculate();
	}
}

CString menu = "MENU";
String ^ msg = gcnew String(menu);
Globals1::gwtoolbar->Add(msg);

CString menu[10];
String[] ^ msg = gcnew String(menu);