IBM® SPSS® Amos™ 28

Running this plugin draws an ellipse in the center of the path diagram. The ellipse is one fourth as tall and one fourth as wide as the 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 X As Single, Y As Single
        Dim Width As Single, Height As Single
 
        X = PageWidth / 2
        Y = PageHeight / 2
        Width = PageWidth / 4
        Height = PageHeight / 4
 
        DiagramDrawUnobserved(X, Y, Width, Height)
    End Function
 
    Public Function Name() As String Implements IPlugin.Name
    End Function
 
    Public Function Description() As String Implements IPlugin.Description
    End Function
End Class