IBM® SPSS® Amos™ 28

The following program displays the Amos engine's internal variable numbers for the observed variables in the model of Example 4.

Imports System.Diagnostics
Imports AmosEngineLib
Imports AmosEngineLib.AmosEngine.TMatrixID
Module MainModule
    Sub Main()
        Dim Sem As New AmosEngine
        Dim AM As New AmosMatrix
        Dim i As Integer
        Sem.NeedEstimates(SampleCovariances)
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Warren5v")
        Sem.AStructure("performance = knowledge + value + satisfaction + error (1)")
 
        Sem.GetEstimatesEx(SampleCovariances, AM)
        For i = 0 To AM.NColumns - 1
            Debug.WriteLine(AM.ColumnNumber(i))
        Next
 
        Sem.Dispose()
    End Sub
End Module