RotateByFixedFactor Example

RotateByFixedFactor Example

Sub Example_RotateByFixedFactor()

    ' This example returns the RotateByFixedFactor for the first

    ' DescriptionKey in the first DescriptionKeyFile in the collection.

    Dim dKeyFile As AeccDescriptionKeyFile

    Dim dKey As AeccDescriptionKey

    Set dKeyFile = AeccApplication.ActiveProject.DescriptionKeyFiles.Item(0)

    Set dKey = dKeyFile.Item(0)

    MsgBox "The value for DescriptionKey RotateByFixedFactor is: " & dKey.RotateByFixedFactor, _

        vbInformation, "RotateByFixedFactor Example"

End Sub