Le portail francophone de la géomatique

bonjour a vous tous..
ma question peut avoir l'air débile mais g bon cherché sur le net g rien trouvé.
au fait dans le cadre de mon stage je suis amené à créer des emprises de mappes cadastralles scannée (créer un polygone qui délimite la zone couverte par cette mappe scannée).. je veu créer un programme qui m'aide a faire ceci en déssinant un polygone en se basant sur l'activeView, cad que le polygone couvrira la zone couvérte par la fenètre après avoir effectué un zoom to layer sur la mappe (en format .img)
si quelqu'un peut m'aider pour trouver un moyen de récupérer les point des extrémitées de l'ecran ou bien pouvoir déssiner le polygonne.
PS: au fait g trouvé un code qui utilise le screenDisplay. pour dessiner des élements graphiques: c'est le suivant:

Dim pMxApp As IMxApplication
    Set pMxApp = Application
    Dim AppDisplay As IAppDisplay
    Set AppDisplay = pMxApp.Display
    Dim pSDisplay As IScreenDisplay
    Set pSDisplay = pAppDisplay
    pSDisplay.StartDrawing pDisplay.hDC, esriNoScreenCache
    pSDisplay.SetSymbol pSym
    pSDisplay.DrawPolygon pPolygon
    pDisplay.FinishDrawing

mais ce programme crée des polygones qui disparaissent au rafraichissement de l'écran.