Try
        If switch Then
            'Handle Dynamic Mode Needed Changes
            HandleDynamicModeActions(True)

            'Convert map to DynamicMap
            'make sure to switch into dynamic mode
            m_dynamicMap = CType(mapControl.ActiveView.FocusMap, IDynamicMap)
            If (Not m_dynamicMap.DynamicMapEnabled) Then
                m_dynamicMap.DynamicMapEnabled = True
            End If
            m_displayTransformation = mapControl.ActiveView.ScreenDisplay.DisplayTransformation

            'hook the dynamic display events
            AddHandler(CType(m_dynamicMap, IDynamicMapEvents_Event)).AfterDynamicDraw, AddressOf OnAfterDynamicDraw
        Else
            'Remove the dynamic display events
            RemoveHandler(CType(m_dynamicMap, IDynamicMapEvents_Event)).AfterDynamicDraw, AddressOf OnAfterDynamicDraw
            m_dynamicMap.DynamicMapEnabled = False
            m_dynamicMap = Nothing

            'Handle Dynamic Mode Needed Changes
            HandleDynamicModeActions(False)
        End If
    Catch ex As Exception
        Dim strError As String
        If enumCurrentLanguage = Language.Arabic Then
            strError = ex.Message & " In SwitchToDynamicMap"
        Else
            strError = ex.Message & " In SwitchToDynamicMap"
        End If
        HandleException(ex, strError, ex.TargetSite.Name)
    End Try