LabelStyleOverride Example
Sub Example_LabelStyleOverride()
' This function determines if the point group label style is overridden.
Dim ptGrp As AeccPointGroup
Set ptGrp = AeccApplication.ActiveProject.PointGroups.Item(0)
MsgBox "Label style override for the project database point group is set to: " & _
ptGrp.LabelStyleOverride, vbInformation, "LabelStyleOverride Example"
End Sub