Sub CreateShadedAreaMapUsingMapPointDemographics()
    Dim objApp As New MapPoint.Application
    Dim objDataSet As MapPoint.DataSet
    Dim objDataMap As MapPoint.DataMap
    Dim objField As MapPoint.Field

    'Set up application and objects to use
    objApp.Visible = True
    objApp.UserControl = True
    Set objDataSet = objApp.ActiveMap.DataSets.GetDemographics()
    Set objField = objDataSet.Fields("Households (1980)")

    'Create the data map, and give it a name
    Set objDataMap = _
      objDataSet.DisplayDataMap(geoDataMapTypeShadedArea, _
      objField, geoShowByRegion1, geoCombineByDefault, _
      geoRangeTypeDiscreteEqualRanges, geoRangeOrderDefault, 15)
    objDataMap.LegendTitle = "State Households"
  End Sub