I am responding to my own post, this code will get what I need
Where TempShapeFileName is the local path to the shape file assuming the corresponding .dbf and .shx files exist in the same directory
Try
MyShapeFileLayer = New ShapeFileFeatureLayer(TempShapeFileName)
MyShapeFileLayer.RequireIndex = False
Try
MyShapeFileLayer.Open()
Catch ex As Exception
DM.WriteToLog("UploadShapeFile OPEN: " & ex.Message, LocalFilePath)
Return False
End Try
Catch ex As Exception
DM.WriteToLog("UploadShapeRestriction Unable to Upload File: " & ex.Message, LocalFilePath)
Return False
End Try
Dim shapeLayer As New InMemoryFeatureLayer()
Dim dynamicOverlay As New LayerOverlay("DynamicOverlay")
dynamicOverlay.IsBaseOverlay = False
dynamicOverlay.Layers.Add("DynamicOverlay", shapeLayer)
Map1.CustomOverlays.Add(dynamicOverlay)
Dim feature As Feature
shapeLayer.Open()
shapeLayer.EditTools.BeginTransaction()
For Each feature In MyShapeFileLayer.QueryTools.GetAllFeatures(ReturningColumnsType.AllColumns)
shapeLayer.EditTools.Add(feature)
Next
shapeLayer.EditTools.CommitTransaction()
Dim MapRestriction As String = shapeLayer.InternalFeatures(0).GetWellKnownText()