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

'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)