Here is the code in the drawcore.   
  
  
       Dim DM As New DMGlobal
        Dim currentZoomLevel As ZoomLevel = MyBase.ZoomLevelSet.GetZoomLevelForDrawing(canvas.CurrentWorldExtent, canvas.Width, canvas.MapUnit)
        Dim checkZoomLevel As ZoomLevel = MyBase.ZoomLevelSet.GetZoomLevel(canvas.CurrentWorldExtent, canvas.Width, canvas.MapUnit)
        Dim CurrentLevel As Integer = MyBase.ZoomLevelSet.GetZoomLevels.IndexOf(checkZoomLevel) + 1  'Gets the number of the zoom level
        If WebData.Length > 0 Then
            Dim MRestriction As String = DM.GetXMLFieldValue(WebData, “MAPRESTRICTION”)
            If MRestriction.Trim.Length > 0 Then
                'Zoom to the restriction and more if less than the visible point zoom lenvel
                Dim MyPoly As New PolygonShape(MRestriction)
                UserHasRestriction = True
            Else
                UserHasRestriction = False
            End If
        Else
            'Base the retrieved points on the current zoom level
            UserHasRestriction = False
        End If
        If currentZoomLevel IsNot Nothing Then
            If UserHasRestriction = False Then
                If CurrentLevel >= 15 Then
                    'If there is no restriction and you are zoomed in enough, then show it
                     ClassInformation = “PROCESSING LOADING…”
                     LoadPointLayerARCClass(canvas.CurrentWorldExtent(), “project”)
                     currentZoomLevel.Draw(canvas, MyBase.InternalFeatures, New Collection(Of SimpleCandidate)(), labelsInAllLayers)
                     ClassInformation = “COMPLETE”
                Else
                    'UserInformationLabel.Text = "You need to keep zooming in to be able to select contacts, you are at Zoom Level: " & CurrentLevel
                    Exit Sub
                End If
            Else
                'If you have a restriction then no matter what the zoom level zoom to the bounding box of the restriction
                 LoadPointLayerARCClass(canvas.CurrentWorldExtent(), “project”)
                 currentZoomLevel.Draw(canvas, MyBase.InternalFeatures, New Collection(Of SimpleCandidate)(), labelsInAllLayers)
            End If
        End If