Aardio - Method of self constructed geticonhandle

	getIconHandle = function(nIconWidth,nIconHeight){
		nIconWidth := ::User32.GetSystemMetrics(0xB/*_SM_CXICON*/);
		nIconHeight := ::User32.GetSystemMetrics(0xC/*_SM_CYICON*/);
		var XorMask = ..gdip.bitmap(nIconWidth,nIconHeight);
		var g1 = XorMask.getGraphics();
			g1.drawImageStretch(_bitmap,::RECT(0,0,nIconWidth,nIconHeight));
			g1.delete();		
		var _,h = ::Gdiplus.GdipCreateHICONFromBitmap(XorMask[["pBitmap"]],{ptr h});
		XorMask.dispose();
		return  h[["h"]] ; 
		// The following is a self constructed method 
/**
		nIconWidth := ::User32.GetSystemMetrics(0xB/*_SM_CXICON*/);
		nIconHeight := ::User32.GetSystemMetrics(0xC/*_SM_CYICON*/);
		var AndMask = ..gdip.bitmap(nIconWidth,nIconHeight);
		var g = AndMask.getGraphics();
			g.clear(0xFF000000);
			g.delete();
		var XorMask = ..gdip.bitmap(nIconWidth,nIconHeight);
		var g1 = XorMask.getGraphics();
			g1.drawImageStretch(_bitmap,::RECT(0,0,nIconWidth,nIconHeight));
			g1.delete();
		class TIconInfo {
			bool fIcon = true;
			INT xHotspot = 0;
			INT yHotspot = 0;
			ptr hbmMask;
			ptr hbmColor;
		};
		var IconInfo = TIconInfo();
		IconInfo.hbmMask = AndMask.copyHandle();
		IconInfo.hbmColor = XorMask.copyHandle();
		var h = ::User32.CreateIconIndirectP(IconInfo); 
		AndMask.dispose();
		XorMask.dispose();
		::DeleteObject(IconInfo.hbmMask);
		::DeleteObject(IconInfo.hbmColor);
		return h; 
**/
	}