Private Sub UIToolPermit_MouseDown(ByVal button As Long, _
ByVal shift As Long, ByVal x As Long, ByVal y As Long)
    ' The process of selction begins in this 
    ' procedure by pressing the mouse button down
    ' on the map. It ends in the MouseUp event procedure.
    Dim pMxDocument As IMxDocument
    Dim pActiveView As IActiveView
    m_blnMouseDown = True
    Set pMxDocument = Application.Document
    Set pActiveView = pMxDocument.FocusMap
    Set m_pPoint = pActiveView.ScreenDisplay. _
		DisplayTransformation.ToMapPoint(x, y)
End Sub