m_SnappingEnv = TryCast(My.ArcMap.Application.FindExtensionByName("ESRI Snapping"), ISnappingEnvironment) m_Snapper = m_SnappingEnv.PointSnapper m_SnappingFeedback = New SnappingFeedbackClass() m_SnappingFeedback.Initialize(Hook, m_SnappingEnv, True)
Dim snapper As IExtension Dim snapperID As UID = New UIDClass snapperID.Value = "esriControls.Snapping" snapper= app.FindExtensionByCLSID(snapperID) m_SnappingEnv = TryCast(snapper, ISnappingEnvironment)