Public Class frmReflectiveDisplay

    Private Sub ReflectivePlane_Click(sender As System.Object, e As System.EventArgs) Handles ReflectivePlane.Click
        Dim objSheetMetalDoc As SolidEdgePart.SheetMetalDocument = 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 objApp 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

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

        ' open the document mentioned in the doc files.
        objSheetMetalDoc = objApp.Documents.Open("C:\ReflectivePlane.psm")
        If Err.Number() Or objSheetMetalDoc Is Nothing Then
            MessageBox.Show("Could not open document ")
        End If

        objSheetMetalDoc.ActivateReflectivePlane()

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

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

        objSheetMetalDoc.SetReflectivePlaneTransparency(True, iTransparency)
        objSheetMetalDoc.GetReflectivePlaneTransparency(bStatus, iTransparency)
    End Sub

End Class