Sub ConnectPage()
ABMShared.ConnectNavigationBar(page)
'
page.GoogleMapsAPIExtras="key=AIza---ZaJXG---EMA---nCPsg0X------1zgu8"
Dim gm1 As ABMGoogleMap
gm1.Initialize(page, "gm1", 24.344390, 120.626985,15, 350, ABM.GOOGLEMAPTYPE_ROADMAP)
gm1.Draggable = True
gm1.HasMapTypeControl = True
gm1.HasStreetViewControl = True
gm1.HasZoomControl = True
gm1.AddMapType(ABM.GOOGLEMAPTYPE_ROADMAP)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_TERRAIN)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_HYBRID)
gm1.AddMapType(ABM.GOOGLEMAPTYPE_SATELLITE)
page.Cell(2,1).AddComponent(gm1)
'
page.FinishedLoading 'IMPORTANT
page.Refresh
page.RestoreNavigationBarPosition
End Sub