CODE -->

Option Strict Off
Imports System
Imports NXOpen
Imports NXOpen.UF
 
Module Module1

    Sub Main()

        Dim theSession As Session = Session.GetSession()
        Dim workPart As Part = theSession.Parts.Work
        Dim displayPart As NXOpen.Part = theSession.Parts.Display

        Dim thePoints() As NXObject



        If SelectPoints("Select points", thePoints) = Selection.Response.Cancel Then
            Return
        End If



        Dim objectArray1(0) As NXOpen.DisplayableObject
-------------------------------------------
         Dim point1 As NXOpen.Point = CType(component4.FindObject("PROTO#.Features|WELD_POINTMARK_ELEMENT(7)|POINT 1"), NXOpen.Point)
-------------------------------------------
        objectArray1(0) = point1
        workPart.Layers.MoveDisplayableObjects(230, objectArray1)


    End Sub


    Function SelectPoints(ByVal prompt As String, byRef selObj() as NXObject) As Selection.Response
 
        Dim theUI As UI = UI.GetUI
        Dim title As String = "Select points"
        Dim includeFeatures As Boolean = False
        Dim keepHighlighted As Boolean = False
        Dim selAction As Selection.SelectionAction = Selection.SelectionAction.ClearAndEnableSpecific

       Dim scope As Selection.SelectionScope = Selection.SelectionScope.AnyInAssembly
       'Dim scope As Selection.SelectionScope = Selection.SelectionScope.WorkPart

        Dim selectionMask_array(0) As Selection.MaskTriple
 
        With selectionMask_array(0)
            .Type = UFConstants.UF_point_type
            .Subtype = UFConstants.UF_point_subtype
        End With
 
        Dim resp As Selection.Response = theUI.SelectionManager.SelectObjects(prompt, _
         title, scope, selAction, _
         includeFeatures, keepHighlighted, selectionMask_array, _
         selobj)
        If resp = Selection.Response.Ok Then
            Return Selection.Response.Ok
        Else
            Return Selection.Response.Cancel
        End If
 
    End Function
 
 
    Public Function GetUnloadOption(ByVal dummy As String) As Integer
 
        'Unloads the image when the NX session terminates
        GetUnloadOption = NXOpen.Session.LibraryUnloadOption.AtTermination
 
    End Function
 
End Module