IBM® SPSS® Amos™ 28

This example demonstrates the ModelMeansAndIntercepts method.

Module MainModule
    ' ModelMeansAndIntercepts Method Example
    Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
 
        Sem.TextOutput()
 
        Sem.ModelMeansAndIntercepts()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Fels_fem")
        Sem.MStructure("academic (4)")
        Sem.MStructure("athletic")
        Sem.MStructure("attract (abc)")
        Sem.MStructure("gpa (abc)")
        Sem.MStructure("height (20?)")
        Sem.MStructure("weight (xyz : 10)")
        Sem.MStructure("rating (xyz : 10)")
 
        Sem.Dispose()
    End Sub
End Module