IBM® SPSS® Amos™ 28

The following plugin modifies the format for displaying estimates of means and variances of unique variables. When means are not estimated, variances are displayed with three decimal places of precision. When means are estimated, both means and variances are displayed with three decimal places of precision.

Imports Microsoft.VisualBasic
Imports Amos
Imports Amos.PDElement.PDFormatType
<System.ComponentModel.Composition.Export(GetType(IPlugin))>
Public Class CustomCode
    Implements IPlugin
 
    Public Function Mainsub() As Integer Implements IPlugin.Mainsub
        Dim x As PDElement
        For Each x In pd.PDElements
            If x.IsUniqueVariable Then
 
                x.ParameterFormat("Unstandardized Estimates", pdExogenousMeans) = _
                "y.yyy, x.xxx"
                x.ParameterFormat("Unstandardized Estimates", pdExogenousNoMeans) = "x.xxx"
 
            End If
        Next
    End Function
 
    Public Function Name() As String Implements IPlugin.Name
    End Function
 
    Public Function Description() As String Implements IPlugin.Description
    End Function
End Class