Private Sub RenderYoko(ByRef layer As ShapeFileFeatureLayer)
        layer.Name = "Yoko"
        layer.RequireIndex = False
        Dim proj4 As Proj4Projection = New Proj4Projection()

        'Internal projection string from the PRJ file. Note that the false easting value (x_0) has to be expressed in meter for proj4 string.
        Dim internalProjectionString As String = Proj4Projection.GetEpsgParametersString(2451)
        proj4.InternalProjectionParametersString = internalProjectionString

        'External projection string as Geodetic (WGS84).
        proj4.ExternalProjectionParametersString = Proj4Projection.GetEpsgParametersString(4326)
        layer.FeatureSource.Projection = proj4

        layer.ZoomLevelSet.ZoomLevel01.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel02.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel03.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel04.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel05.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel06.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel07.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel08.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel09.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel10.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel11.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel12.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel13.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel14.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel15.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel16.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel17.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel18.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel19.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        layer.ZoomLevelSet.ZoomLevel20.DefaultLineStyle.OuterPen.Color = GeoColor.FromArgb(50, GeoColor.StandardColors.Red)
        
        'layer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
        staticLayers.Add(layer)

    End Sub