    Dim NewRoad As ShapeFileFeatureLayer = New ShapeFileFeatureLayer("D:\GIS\newroad.shp")
        ' NewRoad.ZoomLevelSet.ZoomLevel18.DefaultTextStyle = TextStyles.City1("adr")
        NewRoad.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("adr", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3))
        'NewRoad.ZoomLevelSet.ZoomLevel18.DefaultLineStyle = LineStyles.LocalRoad2
        NewRoad.ZoomLevelSet.ZoomLevel18.CustomStyles.Add(GetLineStyle())
        NewRoad.ZoomLevelSet.ZoomLevel18.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

        ' NewRoad.ZoomLevelSet.ZoomLevel17.DefaultTextStyle = TextStyles.City1("adr")
        NewRoad.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("adr", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3))
        'NewRoad.ZoomLevelSet.ZoomLevel17.DefaultLineStyle = LineStyles.LocalRoad3
        NewRoad.ZoomLevelSet.ZoomLevel17.CustomStyles.Add(GetSmallLineStyle())
        NewRoad.ZoomLevelSet.ZoomLevel17.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level17

        'NewRoad.ZoomLevelSet.ZoomLevel16.DefaultTextStyle = TextStyles.City1("adr")
        NewRoad.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3))
        'NewRoad.ZoomLevelSet.ZoomLevel16.DefaultLineStyle = LineStyles.LocalRoad3
        NewRoad.ZoomLevelSet.ZoomLevel16.CustomStyles.Add(GetSmallRareLineStyle())
        NewRoad.ZoomLevelSet.ZoomLevel16.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level16

        NewRoad.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(TextStyles.CreateSimpleTextStyle("ADR", "新細明體", 12, DrawingFontStyles.Bold, GeoColor.StandardColors.Black, GeoColor.StandardColors.Gray, 0, 0, 3))
        NewRoad.ZoomLevelSet.ZoomLevel12.CustomStyles.Add(GetSmallRare_LineStyle())
        NewRoad.ZoomLevelSet.ZoomLevel12.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level15 