StationBack Example

Land Auto

StationBack Example

Sub Example_StationBack()
    
    ' This example returns the StationBack value
    ' for the StationEquation in the collection.
    Dim align As AeccAlignment
    Dim StaEqu As AeccStationEquation
    Set align = AeccApplication.ActiveProject.Alignments.Item(0)
    Set StaEqu = align.StationEquations.Item(0)
    
    MsgBox "The setting StationBack is " & StaEqu.StationBack, vbInformation, "StationBack Example"
    
End Sub