Please see the following code. I would like to use ValueStyles for the line type and for the actual labels themselves simply use a text style. This will be used towards a 'Major Roads" layer and so will feature afterwards the symbols behind them after I get passed this part. With the following code, the label is rendered behind the value style. Why is that?
Case "Shapefile" 'Features from SHP
With layerToAdd.ZoomLevelSet.GetZoomLevels(layerZoomOn)
layerValueStyle = CreateValueStylesFromLID(layerID, connStr)
Dim textStyle As TextStyle = Nothing
'Draw labels?
If layerUseLabels = -1 Then
Dim intFontStyle As Integer = 0
'Trickiness for combo styles
If layerFontBold <> 0 Then intFontStyle += 2
If layerFontItalic <> 0 Then intFontStyle += 4
If layerFontUnderline <> 0 Then intFontStyle += 8
If layerFontStrikeout <> 0 Then intFontStyle += 16
If intFontStyle = 0 Then intFontStyle = 1
Dim textFont As New GeoFont(layerFontName, layerFontSize, intFontStyle)
textStyle = New TextStyle(layerLabelField, textFont, New GeoSolidBrush(layerFontColor))
textStyle.FittingPolygon = layerFittingPolygon
textStyle.BestPlacement = layerBestPlacement
textStyle.SuppressPartialLabels = layerSuppressPartials
textStyle.ForceHorizontalLabelForLine = layerHorizontalLabels
End If
.CustomStyles.Add(layerValueStyle)
If Not textStyle Is Nothing Then .CustomStyles.Add(textStyle)
.ApplyUntilZoomLevel = layerZoomOff
End With