Imports ThinkGeo.MapSuite.Core

Partial Public Class _Default
    Inherits System.Web.UI.Page

    Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If (Not Page.IsPostBack) Then

            Map1.BackgroundFillBrush = New GeoSolidBrush(GeoColor.FromHtml("#B3C6D4"))
            Map1.CurrentExtent = New RectangleShape(-114.34, 75.27, 108.79, -70.23)

            Map1.MapUnit = GeographyUnit.DecimalDegree

            Dim mapanavarra = New ShapeFileLayer("C:\Program Files\ThinkGeo\Map Suite Web Full Edition 3.0 (Beta)\Samples\VB Samples\SampleData\World\cntry02.shp")
            mapanavarra.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.GetSimpleAreaStyle(GeoColor.FromArgb(255, 243, 239, 228), GeoColor.FromArgb(255, 218, 193, 163), 1)
            mapanavarra.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
            Map1.StaticLayers.Add("MapaNavarra", mapanavarra)

            Map1.ScaleLine.Enabled = True
            Map1.PanZoomBar.Enabled = True
            Map1.MousePosition.Enabled = True
            Map1.LayerSwitcher.Enabled = True
            Map1.Overview.Enabled = True
        End If
    End Sub
End Class