Private Sub DisplayMap_Load(ByVal sender As Object, ByVal e As EventArgs)

            Dim layerLabel As New InMemoryFeatureLayer
            layerLabel = New InMemoryFeatureLayer
            layerLabel.IsVisible = True
            layerLabel.Open()
            layerLabel.Columns.Add(New FeatureSourceColumn("StormName"))
            layerLabel.Close()

            Dim myTextStyle As New TextStyle("StormName", New GeoFont("Arial", 20), New GeoSolidBrush(GeoColor.SimpleColors.White))
            myTextStyle.Mask = New AreaStyle(New GeoPen(GeoColor.SimpleColors.Black), New GeoSolidBrush(GeoColor.SimpleColors.Blue))

            layerLabel.ZoomLevelSet.ZoomLevel01.DefaultTextStyle = myTextStyle
            layerLabel.ZoomLevelSet.ZoomLevel01.DefaultAreaStyle.FillSolidBrush.Color = GeoColor.SimpleColors.White
            layerLabel.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20

            Dim fea2 As New Feature(New PointShape(0, 0))
            fea2.ColumnValues("StormName") = "name"


            layerLabel.Open()
            layerLabel.EditTools.BeginTransaction()
            layerLabel.EditTools.Add(fea2)
            layerLabel.EditTools.CommitTransaction()
            layerLabel.Close()

            layerLabel.Open()

            Dim overlay As New LayerOverlay()
            overlay.Layers.Add(layerLabel)

            winformsMap1.Overlays.Add(overlay)
            winformsMap1.CurrentExtent = layerLabel.GetBoundingBox()

            winformsMap1.Refresh()
        End Sub