Books:
ArcGIS Developer's Guide for VBA

You will able to use Google map with your GIS project in ESRI ArcMap 9.
Google Map are represented in ArcMap window as the addition to your
ArcMap map. As you move around ArcMap the the location in the online
viewer is updated on the fly (you can turn off it) and the extent of
Google map will correspond to the extent of ArcMap map.
Google tool bar
| [Go to map of Google], [Refresh], [Google online: on/off]
[open the capturing window] and [save image file]
|
Download
How install
- Download and unpack
- Run _install.bat
How capturing of Google map
- click [open the capturing window]
- use arrows to position the Google map extent
- click save
- type your path and name of your bitmap file
To open Google map window you must click menu Window/Google
VB example:
Transformation of coordinates of the map extent from the current projection into the geographic coordinates
Dim pApp As IApplication
Set pApp = Application
Dim pDoc As IMxDocument
Dim pAView As IActiveView
Dim pMap As IMap
Set pDoc = pApp.Document
Set pMap = pDoc.FocusMap
Set pAView = pMap
Dim pEnvelope As IEnvelope
Set pEnvelope = pAView.Extent 'current map extent
Dim pSpatialRefFact As ISpatialReferenceFactory2
Dim pGeoCoordSystem As ISpatialReference
Dim pGeoTrans As IGeoTransformation
Dim pGeo As IGeometry2
Set pSpatialRefFact = New esriGeometry.SpatialReferenceEnvironment
Set pGeoCoordSystem = pSpatialRefFact.CreateGeographicCoordinateSystem(esriGeometry.esriSRGeoCS_WGS1984)
Set pGeoTrans = pSpatialRefFact.CreateGeoTransformation(esriGeometry.esriSRGeoTransformation_WGS_1984_To_Observ_Meteor_1965)
Set pGeo = pEnvelope
Set pGeo.SpatialReference = pMap.SpatialReference
pGeo.ProjectEx pGeoCoordSystem, esriTransformForward, pGeoTrans, 0, 0, 0
'show result
VBA.MsgBox pEnvelope.LowerLeft.X