ディスプレイ座標をマップ座標に変換

'MxApplicationの取得
Dim pMxApplication As IMxApplication
Set pMxApplication = Application
 
'Displayの取得
Dim pDisplay As IDisplay
Set pDisplay = pMxApplication.Display
 
'DisplayTransformationの取得
Dim pDisplayTransformation As IDisplayTransformation
Set pDisplayTransformation = pDisplay.DisplayTransformation
 
'Map座標値をPointとして取得
Dim pPoint As IPoint
Set pPoint = pDisplayTransformation.ToMapPoint(x, y)