With Html.ThinkGeo().Map("Map1", New System.Web.UI.WebControls.Unit(100, System.Web.UI.WebControls.UnitType.Percentage), 510)
            .MapBackground(New BackgroundLayer(New GeoSolidBrush(GeoColor.StandardColors.White)))
            .CurrentExtent(-165.244674682617, 78.16796875, 179.609893798828, -53.138427734375).MapUnit(GeographyUnit.DecimalDegree)
            .CustomOverlays(Sub(overlays)
                                    Dim connectString1 As String = "Server=192.168.0.213;Database=postgis;User Id=postgres;Password=thinkgeo;"
                                    Dim postgreLayer As PostgreSqlFeatureLayer = New PostgreSqlFeatureLayer(connectString1, "rail", "oid")
                                    postgreLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.Country1
                                    postgreLayer.ZoomLevelSet.ZoomLevel01.DefaultLineStyle = LineStyles.Canal1
                                    postgreLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

                                    overlays.LayerOverlay("MAPA_FOTO_1").Layer("ShapeLayer", postgreLayer)
                            End Sub).Render()
        End With