Private Sub btnSymbolFileOrigin_Click(sender As System.Object, e As System.EventArgs) Handles btnSymbolFileOrigin.Click

    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objDraftDoc As SolidEdgeDraft.DraftDocument = Nothing
    Dim xOrigin As Double
    Dim yOrigin As Double
    Dim objType As Type = Nothing
    Try
        'Connect to a running instance of Solid Edge
        objApplication = Marshal.GetActiveObject("SolidEdge.Application")

        If objApplication Is Nothing Then
            ' Get the type from the Solid Edge ProgID
            objType = Type.GetTypeFromProgID("SolidEdge.Application")
            ' Start Solid Edge
            objApplication = Activator.CreateInstance(objType)
            ' Make Solid Edge visible
            objApplication.Visible = True
        End If

        'Get a reference to active draft document
        objDraftDoc = objApplication.ActiveDocument

        Call objDraftDoc.SetSymbolFileOrigin(0.12, 0.15)
        Call objDraftDoc.GetSymbolFileOrigin(xOrigin, yOrigin)


    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

End Sub