IBM® SPSS® Amos™ 28

In the following program, the mean of academic is fixed at 4. The mean of athletic is not constrained in any way. attract and gpa are required to have the same mean because both means are named 'abc'. The mean of height is given an initial value of 20. The means of weight and rating are required to be equal and are given an initial value of 10.

Module MainModule
    ' MStructure 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