Rename a point feature after selecting the point object.

I'm hoping this is an easy question. I'm a bit new to nxopen and have been beating my head against the wall trying to figure this out.

I want to rename a point feature after selecting the point object.

I'm having a problem getting from the object to the object's features.

Dim pt1 As Point = CType(Start_Pt.GetSelectedObjects()(0), Point)

pt1.SetName("Start_Point") 'This sets the name of the point object

What I want to do is set the name of the feature for the point. I'm not sure how to access the features of an object.

Thanks,
Dennis