Le portail francophone de la géomatique

bonjour à tous
j'aimerai récupérer les coordonnés d'un point spécifié par l'utilisateur  sur écran par un Click , j'ai établi le code suivant:

Dim pMxDoc As IMxDocument
Dim pActiveView As IActiveView
Dim m_blnMouseDown As Boolean
Dim pPoint As IPoint
Set pMxDoc = ThisDocument
Set pActiveView = pMxDoc.FocusMap
Set pPoint = pActiveView.ScreenDisplay.DisplayTransformation.ToMapPoint(x, y)

MsgBox " the coordinate of point is :" & x & "   " & y

mais lorsque j'exécute le programme j'obtient des résultats éronnés , c'est des cordonnés dont l'origine est le point supérieur gauche de la fenêtre view de arcmap, je pense qu'il s'agit des coordonnées  de l'écran.
est ce qu'il ya moyen de les convertir en coordonnées géographiques , sachant que mes couches sont toutes géoréférenciées.
merci pour votre aide