IBM® SPSS® Amos™ 28

The following program displays the message "There are missing values." because the Attg_yng data contains a missing value for age.

Module MainModule
    ' AnyMissingValues Method Example
    Public Sub Main()
        Dim Sem As New AmosEngineLib.AmosEngine
        Sem.ModelMeansAndIntercepts()
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Attg_yng")
        Sem.AStructure("age <--> vocabulary (0)")
 
        Sem.BeginGroup(AmosEngine.AmosDir & "Examples\English\UserGuide.xls", "Attg_old")
        Sem.AStructure("age <--> vocabulary (0)")
 
        Sem.FitAllModels()
 
        If Sem.AnyMissingValues Then
            System.Diagnostics.Debug.WriteLine("There are missing values.")
        Else
            System.Diagnostics.Debug.WriteLine("There are no missing values.")
        End If
 
        Sem.Dispose()
    End Sub
End Module