function ColorDlg(Hndl,Basicolor,NewColor)
	
	local ret=nil
	local TblClr={}
	local CLR = Memory.CreateArray(ARRAY_LONG, 16);
	local ChoseColor = Memory.CreateStructure("long, long, long, long, long, long, long, long, long");

 if NewColor then
 	for i=1, 16 do
  if NewColor[i] then 
  	Memory.SetArrayData(CLR, i-1, NewColor[i]);
  else
  	Memory.SetArrayData(CLR, i-1, 0);
  end
 	end
 end
 
 Memory.SetStructureData(ChoseColor, 1, 0, Memory.Size(ChoseColor), "");
 Memory.SetStructureData(ChoseColor, 2, 0, Hndl, "");
 Memory.SetStructureData(ChoseColor, 4, 0, Basicolor, "");
 Memory.SetStructureData(ChoseColor, 5, 0, CLR, "");
 Memory.SetStructureData(ChoseColor, 6, 0, 259, "");
 local result = DLL.CallFunction("comdlg32.dll", "ChooseColorA", ChoseColor, DLL_RETURN_TYPE_LONG, DLL_CALL_STDCALL);
 if result ~= 0 then
 	local RgbRes = Memory.GetStructureData(ChoseColor, 4, 0, "")
 	return1 = RgbRes
 
 	for i=1, 16 do
  TblClr[i] = Memory.GetArrayData(CLR, i-1, ARRAY_LONG);
 	end	
 	return2 = TblClr
 	
 end	
 Memory.FreeArray(CLR);
	Memory.FreeStructure(ChoseColor);
	return return1, return2
end

 ColorDlg(Application.GetWndHandle(),255,NewColor)