Public Class Form1

    Private Sub btnReflectivePlane_Click(sender As System.Object, e As System.EventArgs) Handles btnReflectivePlane.Click
        Dim objPartDoc As SolidEdgePart.PartDocument = Nothing
        Dim objProfile As SolidEdgePart.Profile = Nothing
        Dim sketch As SolidEdgePart.Sketch = Nothing
        Dim objPoint As SolidEdgeFrameworkSupport.Point2d = Nothing
        Dim objOrientation As SolidEdgeFrameworkSupport.Line2d = Nothing
        Dim objApplication As SolidEdgeFramework.Application = Nothing
        Dim objPointOut As SolidEdgeFrameworkSupport.Point2d = Nothing
        Dim objOrientationOut As SolidEdgeFrameworkSupport.Line2d = Nothing
        Dim bStatus As Boolean = False
        Dim dDistance As Double = 0
        Dim iTransparency As Integer = 30

        Try

            ' Create/get the application with specific settings
            objApplication = GetObject(, "SolidEdge.Application")
            If objApplication Is Nothing Then
                MessageBox.Show("Could not get application.")
            End If

            ' open the document mentioned in the doc files.
            objPartDoc = objApplication.Documents.Open("C:\ReflectivePlane.par")
            If objPartDoc Is Nothing Then
                MessageBox.Show("Could not open document ")
            End If

            objPartDoc.ActivateReflectivePlane()

            objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, True, 0.3)
            objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, True, 0.4)
            objPartDoc.SetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, True, 0.5)

            objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igTopPlane, bStatus, dDistance)
            objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igRightPlane, bStatus, dDistance)
            objPartDoc.GetReflectivePlane(SolidEdgePart.ReflectivePlaneConstants.igFrontPlane, bStatus, dDistance)

            objPartDoc.SetReflectivePlaneTransparency(True, iTransparency)
            objPartDoc.GetReflectivePlaneTransparency(bStatus, iTransparency)

            'objPartDoc.DeActivateReflectivePlane()

            If objPartDoc Is Nothing Then
                objPartDoc.Close(False)
                objPartDoc = Nothing
            End If

        Catch ex As Exception
            MsgBox(ex.Message)
        End Try
    End Sub
End Class