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)