Private Sub InitializeMap As ResumableSub
LogSub("InitializeMap")
#if B4J
gmap.Initialize2("gmap", Null, Main.API_KEY)
pnlMap.AddView(gmap.AsPane, 0, 0, pnlMap.Width, pnlMap.Height)
Wait For gmap_Ready
Return gmap.IsReady
#Else If B4i
gmap.Initialize("gmap", Main.API_KEY)
pnlMap.AddView(gmap, 0, 0, pnlMap.Width, pnlMap.Height)
gmap.GetUiSettings.CompassEnabled = True
gmap.GetUiSettings.MyLocationButtonEnabled = True
gmap.MyLocationEnabled = True
Return True
#Else if B4A
Wait For gMap_Ready
gMap = gMapFragment.GetMap
If gMap.IsInitialized Then
'' Log("gmap.IsInitialized")
gMap.MyLocationEnabled = True
End If
Return gMap.IsInitialized
#End If
End Sub