Private Sub DisplayMap_Load(sender As Object, e As EventArgs)
	winformsMap1.MapUnit = GeographyUnit.DecimalDegree
	winformsMap1.CurrentExtent = New RectangleShape(-180, 90, 180, -90)

	Dim classBreakStyle As New ClassBreakStyle("POP_CNTRY")
	classBreakStyle.ClassBreaks.Add(New ClassBreak(50000000, New TextStyle("POP_CNTRY", New GeoFont("Arial", 10), New GeoSolidBrush(GeoColor.SimpleColors.Blue))))
	classBreakStyle.ClassBreaks.Add(New ClassBreak(100000000, New TextStyle("POP_CNTRY", New GeoFont("Arial", 20), New GeoSolidBrush(GeoColor.SimpleColors.Orange))))
	classBreakStyle.ClassBreaks.Add(New ClassBreak(2000000000, New TextStyle("POP_CNTRY", New GeoFont("Arial", 40), New GeoSolidBrush(GeoColor.SimpleColors.Red))))

	Dim shpLayer As New ShapeFileFeatureLayer("..\..\SampleData\Data\countries02.shp")
	shpLayer.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(classBreakStyle)
	shpLayer.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(AreaStyles.Country1)
	shpLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

	Dim staticOverlay As New LayerOverlay()
	staticOverlay.Layers.Add("shpLayer", shpLayer)

	winformsMap1.Overlays.Add(staticOverlay)
	winformsMap1.Refresh()
End Sub