Private Sub mnuAddRectangle_Click(sender As System.Object, e As System.EventArgs) Handles mnuAddRectangle.Click
            Dim BLayer As InMemoryFeatureLayer = New InMemoryFeatureLayer()
            BLayer.Name = "BLayer"
            BLayer.Open()
            BLayer.Columns.Add(New FeatureSourceColumn("ID"))
            BLayer.Columns.Add(New FeatureSourceColumn("Text"))
            BLayer.Columns.Add(New FeatureSourceColumn("COLOR"))
            BLayer.Close()
            'BLayer.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle = AreaStyles.CreateSimpleAreaStyle(GeoColor.FromArgb(50, GeoColor.StandardColors.Green))
            BLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

            PlotBuildingFeatures(BLayer)

            '----------------Set Projection
            Dim centerLatLong As Vertex
            centerLatLong = SetProjectionForInmemoryLayer(BLayer)
            WinformsMap1.CenterAt(New PointShape(centerLatLong))

            WinformsMap1.Refresh()
        End Sub

        Public Sub PlotBuildingFeatures(ByVal BLayer As InMemoryFeatureLayer)
            Dim RectangleShapeForBuildingFloor() As RectangleShape

            Dim BuildingID As String
            Dim BuildingColor As GeoColor
            Dim Building_Color As String
            Dim DisplayText As String
            Dim BuildingName As String

            Dim BuildingLatitude As Double = 0
            Dim BuildingLongitude As Double = 0
            Dim LineID As String = ""
            Dim LineName As String = ""
            Dim DisplayLineText As String = ""
            Dim SiteLatitude As Double = 0
            Dim SiteLongitude As Double = 0
            Dim valueStyle As ValueStyle = New ValueStyle
            Dim textStyle As TextStyle = New TextStyle

            valueStyle.ColumnName = "COLOR"

            Dim BuildingLayer As GroupLayer = New GroupLayer
            BuildingLayer.Name = "BuildingLayer"
            BuildingLayer.Layers.Add("bFeatureLayer", BLayer)
            WinformsMap1.Overlays("layerOverlay").Lock.EnterWriteLock()
            Try
                DirectCast(WinformsMap1.Overlays("layerOverlay"), LayerOverlay).Layers.Add("BuildingLayer", BuildingLayer)
            Finally
                WinformsMap1.Overlays("layerOverlay").Lock.ExitWriteLock()
            End Try


            ReDim Preserve RectangleShapeForBuildingFloor(2)

            'For First Rectangle
            BuildingLongitude = 77.219639
            BuildingLatitude = 28.633048
            Dim point As PointShape = New PointShape(BuildingLongitude, BuildingLatitude)
            BuildingID = "B1"
            BuildingColor = GeoColor.StandardColors.Blue
            Building_Color = "B1F1"
            DisplayText = "B1F1"
            BuildingName = DisplayText

            Dim PointShape1 As PointShape = New PointShape(BuildingLongitude, BuildingLatitude)
            'Point Located on distance (TotWidth) in East (90 degree) location from Point1
            Dim PointShape2 As PointShape = DirectCast(PointShape1.CloneDeep, PointShape)
            PointShape2.TranslateByDegree(0.00005, 90, WinformsMap1.MapUnit, DistanceUnit.Meter)
            'Point Located on distance (TotHeight) in South (180 degree) location from Point2
            Dim PointShape3 As PointShape = DirectCast(PointShape1.CloneDeep, PointShape)
            PointShape3.TranslateByDegree(0.00005, 0, winformsMap1.MapUnit, DistanceUnit.Meter)
            RectangleShapeForBuildingFloor(0) = New RectangleShape(PointShape3, PointShape2)
            BLayer.InternalFeatures.Add(BuildingName, New Feature(RectangleShapeForBuildingFloor(0)))

            Dim buildingFeature As Feature = BLayer.InternalFeatures(BuildingName)
            buildingFeature.ColumnValues.Add("ID", BuildingID)
            buildingFeature.ColumnValues.Add("Text", DisplayText)
            buildingFeature.ColumnValues.Add("Color", Building_Color)

            valueStyle.ValueItems.Add(New ValueItem(Building_Color, AreaStyles.CreateSimpleAreaStyle(BuildingColor)))
            textStyle = TextStyles.CreateSimpleTextStyle("Text", "Arial", 8, DrawingFontStyles.Regular, GeoColor.StandardColors.Black, GeoColor.FromArgb(100, GeoColor.SimpleColors.Green), 2, 0, -8)

            'For Second Rectangle
            BuildingColor = GeoColor.StandardColors.Red
            Building_Color = "B1F2"
            DisplayText = "B1F2"
            BuildingName = DisplayText
            PointShape1 = PointShape3
            'Point Located on distance (TotWidth) in East (90 degree) location from Point1
            PointShape2 = DirectCast(PointShape1.CloneDeep, PointShape)
            PointShape2.TranslateByDegree(0.00005, 90, WinformsMap1.MapUnit, DistanceUnit.Meter)
            'Point Located on distance (TotHeight) in South (180 degree) location from Point2
            PointShape3 = DirectCast(PointShape1.CloneDeep, PointShape)
            PointShape3.TranslateByDegree(0.00005, 0, winformsMap1.MapUnit, DistanceUnit.Meter)
            RectangleShapeForBuildingFloor(1) = New RectangleShape(PointShape3, PointShape2)
            BLayer.InternalFeatures.Add(BuildingName, New Feature(RectangleShapeForBuildingFloor(1)))

            buildingFeature = BLayer.InternalFeatures(BuildingName)
            buildingFeature.ColumnValues.Add("ID", BuildingID)
            buildingFeature.ColumnValues.Add("Text", DisplayText)
            buildingFeature.ColumnValues.Add("Color", Building_Color)

            valueStyle.ValueItems.Add(New ValueItem(Building_Color, AreaStyles.CreateSimpleAreaStyle(BuildingColor)))
            textStyle = TextStyles.CreateSimpleTextStyle("Text", "Arial", 8, DrawingFontStyles.Regular, GeoColor.StandardColors.Black, GeoColor.FromArgb(100, GeoColor.SimpleColors.Green), 2, 0, -8)

            BLayer.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(valueStyle)
            BLayer.ZoomLevelSet.ZoomLevel01.CustomStyles.Add(textStyle)
            BLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
        End Sub



        Public Function SetProjectionForInmemoryLayer(ByVal layer As InMemoryFeatureLayer) As Vertex
            Dim boundingBox As RectangleShape = Nothing
            Process.GetCurrentProcess().ProcessorAffinity = CType(1, System.IntPtr)
            layer.FeatureSource.Projection = Nothing
            If layer.HasBoundingBox Then
                If Not layer.IsOpen Then
                    layer.Open()
                End If
                If boundingBox Is Nothing Then
                    boundingBox = layer.GetBoundingBox()
                Else
                    boundingBox.ExpandToInclude(layer.GetBoundingBox())
                End If
                layer.Close()
            End If
            Dim boxArea As String = boundingBox.ToString
            Dim bArea() As String = Split(boxArea, ",")
            Dim xLatCor As Double
            Dim yLongCor As Double
            If CDbl(bArea(0)) <> 0 Then
                xLatCor = CDbl(bArea(0))
                If xLatCor < 0 Then
                    xLatCor = CDbl(bArea(2))
                End If
            Else
                xLatCor = CDbl(bArea(2))
            End If
            If CDbl(bArea(1)) <> 0 Then
                yLongCor = CDbl(bArea(1))
                If yLongCor < 0 Then
                    yLongCor = CDbl(bArea(3))
                End If
            Else
                yLongCor = CDbl(bArea(3))
            End If
            Dim decimalDegreevalue As Vertex
            If Math.Abs(xLatCor) > -180 And Math.Abs(xLatCor) < 180 Then
                'This is decimal degree map
                If True Then
                    Dim proj4 As ManagedProj4Projection = New ManagedProj4Projection()
                    'proj4.InternalProjectionParametersString = ManagedProj4Projection.GetWgs84ParametersString
                    proj4.InternalProjectionParametersString = Proj4Projection.GetDecimalDegreesParametersString
                    proj4.ExternalProjectionParametersString = Proj4Projection.GetGoogleMapParametersString()
                    layer.FeatureSource.Projection = proj4

                    proj4.Open()
                    decimalDegreevalue = proj4.ConvertToExternalProjection(CDbl(bArea(0)), CDbl(bArea(3)))
                    proj4.Close()
                Else
                    decimalDegreevalue = New Vertex(CDbl(bArea(0)), CDbl(bArea(3)))
                End If
            Else
                'This is meter map
                Dim proj4 As ManagedProj4Projection = New ManagedProj4Projection
                proj4.InternalProjectionParametersString = ManagedProj4Projection.GetEpsgParametersString(32643)
                proj4.ExternalProjectionParametersString = ManagedProj4Projection.GetEpsgParametersString(4326)
                layer.FeatureSource.Projection = proj4

                proj4.Open()
                decimalDegreevalue = proj4.ConvertToInternalProjection(CDbl(bArea(0)), CDbl(bArea(3)))
                proj4.Close()
            End If
            layer.DrawingQuality = DrawingQuality.CanvasSettings
            Return decimalDegreevalue
        End Function