'Create new InMemory Layer specifically for Labels (This isn't necessary but gives you extra control to just turn off labels if you want)
Dim inMemoryLabelLayer As New InMemoryLayer()

'Add My Columns
inMemoryLabelLayer.FeatureSourceColumns.Add(New FeatureSourceColumn("Column1", "", 20))

inMemoryLabelLayer.FeatureSourceColumns.Add(New FeatureSourceColumn("Column2", "", 20))

inMemoryLabelLayer.FeatureSourceColumns.Add(New FeatureSourceColumn("Column3", "", 20))

'Create My Feature 
Dim myFeature As New Feature(BaseShape.GetShapeFromWellKnownText("POLYGON((10 60,40 70,30 85, 10 60))"))
'Add Column Values to Feature
myFeature.ColumnValues.Add("Column1", "Value 1")

myFeature.ColumnValues.Add("Column2", "Value 2")

myFeature.ColumnValues.Add("Column3", "Value 3")

inMemoryLabelLayer.Features.Add("Polygon", myFeature)

Dim myFeature2 As New Feature(New RectangleShape(65, 30, 90, 15))

myFeature2.ColumnValues.Add("Column1", "Value 4")

myFeature2.ColumnValues.Add("Column2", "Value 5")

myFeature2.ColumnValues.Add("Column3", "Value 6")

inMemoryLabelLayer.Features.Add("Rectangle", myFeature2)

 
'Set TextStyle to Label all 3 Columns
inMemoryLabelLayer.ZoomLevelSet.ZoomLevel01.DefaultTextStyle = TextStyles.City1("[Column1] [Column2] [Column3]")

inMemoryLabelLayer.ZoomLevelSet.ZoomLevel01.ApplyUntilZoomLevel = ApplyUntilZoomLevel.Level20
'Add Label Layer to Dynamic Layers Collections
Map1.DynamicLayers.Add("LabelLayer", inMemoryLabelLayer)