How to create a Local Function raster dataset

//Create the Raster Function object and the Function Arguments object.
IRasterFunction rasterFunction = new LocalFunction();
ILocalFunctionArguments localFunctionArguments = new LocalFunctionArguments()as
    ILocalFunctionArguments;

//Specify the operation to be the "maximum cell value of the inputs."
localFunctionArguments.Operation =
    esriGeoAnalysisFunctionEnum.esriGeoAnalysisFunctionMax;

//Open raster datasets and specify input rasters to the operation as an array.
IArray array1 = new ESRI.ArcGIS.esriSystem.Array();
array1.Add(inRasterDataset01);
array1.Add(inRasterDataset02);
array1.Add(inRasterDataset03);
localFunctionArguments.Rasters = array1;

//Create the Raster Info object and set the cell size for the analysis.
IRasterInfo rasInfo = new RasterInfo();
IPnt pnt1 = new Pnt();
pnt1.X = 2;
pnt1.Y = 2;
rasInfo.CellSize = pnt1;
localFunctionArguments.RasterInfo = rasInfo;

//Create and initialize a Function raster dataset with the Raster Function object and its arguments.
IFunctionRasterDataset functionRasterDataset;
functionRasterDataset = new FunctionRasterDataset();
functionRasterDataset.Init(rasterFunction, localFunctionArguments);

'Create the Raster Function object and the Function Arguments object.
Dim rasterFunction As IRasterFunction
rasterFunction = New LocalFunction()
Dim localFunctionArguments As ILocalFunctionArguments
localFunctionArguments = New LocalFunctionArguments()

'Specify the operation to be the "maximum cell value of the inputs."
localFunctionArguments.Operation = esriGeoAnalysisFunctionEnum.esriGeoAnalysisFunctionMax

'Open raster datasets and specify input rasters to the operation as an array.
Dim array1 As IArray
array1 = New ESRI.ArcGIS.esriSystem.Array()
array1.Add(inRasterDataset01)
array1.Add(inRasterDataset02)
array1.Add(inRasterDataset03)
localFunctionArguments.Rasters = array1

'Create the Raster Info object, and set the cell size for the analysis.
Dim rasInfo As IRasterInfo
rasInfo = New RasterInfo()
Dim pnt1 As IPnt
pnt1 = New Pnt()
pnt1.X = 2
pnt1.Y = 2
rasInfo.CellSize = pnt1
localFunctionArguments.RasterInfo = rasInfo

'Create and initialize a Function raster dataset with the Raster Function object and its arguments.
Dim functionRasterDataset As IFunctionRasterDataset
functionRasterDataset = New FunctionRasterDataset()
functionRasterDataset.Init(rasterFunction, localFunctionArguments)