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)