How to create a Hillshade function dataset

double altitude = 45;
double azimuth = 215;
double zFactor = (1 / 111111.0);
// Create the Function Arguments object.
IHillshadeFunctionArguments rasterFunctionArguments = (IHillshadeFunctionArguments)
    new HillshadeFunctionArguments();
// The input data can be of type IRasterDataset, IRasterBand, or IRaster.
rasterFunctionArguments.DEM = inputData;
// Specify the altitude, azimuth, and z factor (the scale factor for z values).
rasterFunctionArguments.Altitude = altitude;
rasterFunctionArguments.Azimuth = azimuth;
rasterFunctionArguments.ZFactor = zFactor;

// Create the Raster Function object.
IRasterFunction rasterFunction = new HillshadeFunction();
// Create the Function Raster Dataset object.
IFunctionRasterDataset functionRasterDataset = new FunctionRasterDataset();
// Create a name object for the Function Raster Dataset.
IFunctionRasterDatasetName functionRasterDatasetName = (IFunctionRasterDatasetName)
    new FunctionRasterDatasetName();
// Specify the output file name for the new dataset (including the .afr extension at the end).
functionRasterDatasetName.FullName = @"c:\temp\Hillshade.afr";
functionRasterDataset.FullName = (IName)functionRasterDatasetName;
// Initialize the new Function Raster Dataset with the Raster Function and its arguments.
functionRasterDataset.Init(rasterFunction, rasterFunctionArguments);

Dim altitude As Double = 45
Dim azimuth As Double = 215
Dim zFactor As Double = (1 / 111111.0)
' Create the Function Arguments object.
Dim rasterFunctionArguments As IHillshadeFunctionArguments
rasterFunctionArguments = New HillshadeFunctionArguments()
' The input data can be of type IRasterDataset, IRasterBand, or IRaster.
rasterFunctionArguments.DEM = inputData
'  Specify the altitude, azimuth, and z factor (the scale factor for z values).
rasterFunctionArguments.Altitude = altitude
rasterFunctionArguments.Azimuth = azimuth
rasterFunctionArguments.ZFactor = zFactor

' Create the Raster Function object.
Dim rasterFunction As IRasterFunction
rasterFunction = New HillshadeFunction()
' Create the Function Raster Dataset object.
Dim functionRasterDataset As IFunctionRasterDataset
functionRasterDataset = New FunctionRasterDataset()
' Create a name object for the Function Raster Dataset.
Dim functionRasterDatasetName As IFunctionRasterDatasetName
functionRasterDatasetName = New FunctionRasterDatasetName()
' Specify the output file name for the new dataset (including the .afr extension at the end).
functionRasterDatasetName.FullName = "c:\temp\Hillshade.afr"
functionRasterDataset.FullName = functionRasterDatasetName
' Initialize the new Function Raster Dataset with the Raster Function and its arguments.
functionRasterDataset.Init(rasterFunction, rasterFunctionArguments)