StationAhead Example

Land Auto

StationAhead Example

Sub Example_StationAhead()
    
    ' This example returns the StationAhead 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 StationAhead is " & StaEqu.StationAhead, vbInformation, "StationAhead Example"
    
End Sub