Imports System.IO
Imports System.Runtime.InteropServices

Module Example
    <STAThread()> _
    Sub Main()
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objPartDocument As SolidEdgePart.PartDocument = Nothing
        Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
        Dim objStudy As SolidEdgePart.Study = Nothing
        Dim objLoadOwner As SolidEdgePart.LoadOwner = Nothing
        Dim objLoad As SolidEdgePart.Load = Nothing
        Dim eLoadDirection As SolidEdgePart.LoadSymbDirOptsEnum_Auto
        Dim eLoadType As SolidEdgePart.FEALoadTypeEnum_Auto
        Dim dLoadValue As Double = 2500000
        Dim dLoadDirX As Double = -0.0
        Dim dLoadDirY As Double = 1.0
        Dim dLoadDirZ As Double = -0.0
        Dim dLoadPosX As Double = -0.0754203151729549
        Dim dLoadPosY As Double = 0.015441908335819984
        Dim dLoadPosZ As Double = 0.056796356131827666
        Dim dSpacingFactor As Double = 0.11
        Dim dSizeFactor As Double = 0.24200000000000002
        Dim dSteeringWheelLen As Double = 0.020253310860972911
        Dim dwLoadProps As UInt32 = 0
        Dim dLoadSymSpacing As Double = 0.016464634271235477
        Dim dLoadSymSize As Double = 0.036222195396718053
        Dim ColorLoadSymbol As UInt32 = 16736256
        Dim ColorLoadSymbolAngAcc As UInt32 = 8388673

        Try
            OleMessageFilter.Register()

            ' Connect to Solid Edge
            objApplication = Marshal.GetActiveObject("SolidEdge.Application")
            objPartDocument = objApplication.ActiveDocument

            objStudyOwner = objPartDocument.StudyOwner
            objStudy = objStudyOwner.Item(1)
            objStudy.GetLoadOwner(objLoadOwner)
            objLoad = objLoadOwner.Item(1)

            eLoadDirection = SolidEdgePart.LoadSymbDirOptsEnum_Auto.eLoadDirForCnstr_Auto
            eLoadType = SolidEdgePart.FEALoadTypeEnum_Auto.eLoadTypeForce_Auto

            objLoad.SetLoadOptions(eLoadType, _
                                   dLoadValue, _
                                   0, _
                                   eLoadDirection, _
                                   dLoadDirX, _
                                   dLoadDirY, _
                                   dLoadDirZ, _
                                   dLoadPosX, _
                                   dLoadPosY, _
                                   dLoadPosZ, _
                                   ColorLoadSymbol, _
                                   ColorLoadSymbolAngAcc, _
                                   dSpacingFactor, _
                                   dSizeFactor, _
                                   dSteeringWheelLen, _
                                   dwLoadProps, _
                                   dLoadSymSpacing, _
                                   dLoadSymSize)

        Catch ex As Exception
            Console.WriteLine(ex.Message)
        Finally
            OleMessageFilter.Revoke()
        End Try
    End Sub
End Module