Here is a sample I got from Kash J. Rangan at Solid Edge Support. I hope it helps.
Option Explicit
Dim objApp As SolidEdgeFramework.Application
Dim objDoc As SolidEdgePart.PartDocument
Dim objCurveByTable As SolidEdgePart.CurveByTable
Dim objRefPln As RefPlane
Private Sub Form_Load()
Set...
