IBM® SPSS® Amos™ 28

The plugin below draws the following path diagram.

Imports Microsoft.VisualBasic
Imports Amos
Imports Amos.pd
<System.ComponentModel.Composition.Export(GetType(IPlugin))>
Public Class CustomCode
    Implements IPlugin
 
    Public Function Mainsub() As Integer Implements IPlugin.Mainsub
        Dim E As PDElement
        If FileNew(PDSaveChangesEnum.pdPromptToSaveChanges) Then
            Return 0
        End If
        E = DiagramDrawUnobserved(3, 3, 2, 2)
        DiagramDrawIndicatorVariable(E)
        DiagramDrawIndicatorVariable(E)
        DiagramDrawIndicatorVariable(E)
 
        EditRotate(E)
        pd.Refresh()
        EditFitToPage()
    End Function
 
    Public Function Name() As String Implements IPlugin.Name
    End Function
 
    Public Function Description() As String Implements IPlugin.Description
    End Function
End Class