Private Sub ViewResults_Click(sender As Object, e As EventArgs) Handles ViewResults.Click
    Dim objApplication As SolidEdgeFramework.Application = Nothing
    Dim objDocument As SolidEdgePart.PartDocument = Nothing
    Dim objPartDoc As SolidEdgePart.PartDocument = Nothing
    Dim objModel As SolidEdgePart.Model = Nothing
    Dim objStudyOwner As SolidEdgePart.StudyOwner = Nothing
    Dim objStudy As SolidEdgePart.Study = Nothing

    Try
        ' Get Application Object.
        objApplication = Marshal.GetActiveObject("SolidEdge.Application")
        objDocument = objApplication.ActiveDocument
        objStudyOwner = objDocument.StudyOwner
        objStudy = objStudyOwner.Item(1)
        Call objStudy.ViewResults()

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