CurveLabelIncrement Example

CurveLabelIncrement Example

Sub Example_CurveLabelIncrement()

    ' This example returns the CurveLabelIncrement for the first ProfileBlock

    ' in the collection

    Dim alignProf As AeccProfileBlock

    Set alignProf = AeccApplication.ActiveDocument.ProfileBlocks.Item(0)

    MsgBox "The CurveLabelIncrement for the first ProfileBlock in the collection is: " _

         & alignProf.CurveLabelIncrement, vbInformation, "CurveLabelIncrement Example"

End Sub