Imports System.Runtime.InteropServices
Public Class Form1
    

    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objDocument As SolidEdgePart.PartDocument = Nothing
        Dim objPartDoc As SolidEdgePart.PartDocument = Nothing
        Dim objModel As SolidEdgePart.Model = Nothing
        Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
        Dim objStudy As SolidEdgePart.Study = Nothing
        Dim objFEAOptimizationOwner As SolidEdgePart.OptimizationOwner = Nothing
        Dim objOptimization As SolidEdgePart.Optimization = Nothing

        Try
            ' Get Application Object.
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objDocument = objApplication.ActiveDocument
            objStudyOwner = objDocument.StudyOwner
            objStudy = objStudyOwner.Item(1)
            Call objStudy.GetOptimizationOwner(objFEAOptimizationOwner)
            
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try

    End Sub
End Class