Private Sub Locate_Click(sender As Object, e As EventArgs) Handles Locate.Click
Dim objApplication As SolidEdgeFramework.Application = Nothing
Dim objView As SolidEdgeFramework.View = Nothing
Dim objCurWindow As SolidEdgeFramework.Window
Dim objX, objY, objZ As Double
Dim objNX, objNY, objNZ As Double
Try
objApplication = Marshal.GetActiveObject("SolidEdge.Application")
objCurWindow = objApplication.ActiveWindow
'Assigning values to variables
objView = objCurWindow.View
objX = 0
objY = 0
objZ = 0
'objN{X|Y|Z} return arguments will contain the derived top level model coordinate.
objView.Locate(objX, objY, 0, objNX, objNY, objNZ)
MsgBox("Result of Locate" + vbNewLine + objNX.ToString + " " + objNY.ToString + " " + objNZ.ToString)
Catch ex As Exception
MsgBox(ex.ToString)
End Try
End Sub