How to define and generate overviews on a Mosaic dataset

public void BuildOverviewsOnMD(IMosaicDataset theMosaicDataset)
{
    // The mosaic dataset operation interface is used to perform operations on 
    // a mosaic dataset.
    IMosaicDatasetOperation theMosaicDatasetOperation = (IMosaicDatasetOperation)
        (theMosaicDataset);

    // Create a define overview parameters object.
    IDefineOverviewsParameters defineOvArgs = new DefineOverviewsParametersClass();
    // Use the overview tile parameters interface to specify the overview factor
    // used to generate overviews.
    ((IOverviewTileParameters)defineOvArgs).OverviewFactor = 3;
    // Use the mosaic dataset operation interface to define overviews.
    theMosaicDatasetOperation.DefineOverviews(defineOvArgs, null);

    // Create a generate overviews parameters object.
    IGenerateOverviewsParameters genPars = new GenerateOverviewsParametersClass();
    // Set properties to control overview generation.
    IQueryFilter genQuery = new QueryFilterClass();
    ((ISelectionParameters)genPars).QueryFilter = genQuery;
    genPars.GenerateMissingImages = true;
    genPars.GenerateStaleImages = true;
    // Use the mosaic dataset operation interface to generate overviews.
    theMosaicDatasetOperation.GenerateOverviews(genPars, null);
}

Public Sub BuildOverviewsOnMD(ByVal theMosaicDataset As IMosaicDataset)
    ' The mosaic dataset operation interface is used to perform operations on
    ' a mosaic dataset.
    Dim theMosaicDatasetOperation As IMosaicDatasetOperation =
    DirectCast((theMosaicDataset), IMosaicDatasetOperation)
    
    ' Create a define overview parameters object.
    Dim defineOvArgs As IDefineOverviewsParameters = New DefineOverviewsParametersClass()
    ' Use the overview tile parameters interface to specify the overview factor
    ' used to generate overviews.
    Dim overviewTileParam As IOverviewTileParameters = defineOvArgs
    overviewTileParam.OverviewFactor = 3
    ' Use the mosaic dataset operation interface to define overviews.
    theMosaicDatasetOperation.DefineOverviews(defineOvArgs, Nothing)
    
    ' Create a generate overviews parameters object.
    Dim genPars As IGenerateOverviewsParameters = New GenerateOverviewsParametersClass()
    ' Set properties to control overview generation.
    Dim genQuery As IQueryFilter = New QueryFilterClass()
    Dim pSelParam As ISelectionParameters = genPars
    pSelParam.QueryFilter = genQuery
    genPars.GenerateMissingImages = True
    genPars.GenerateStaleImages = True
    ' Use the mosaic dataset operation interface to generate overviews.
    theMosaicDatasetOperation.GenerateOverviews(genPars, Nothing)
End Sub