Sub Globals
Private gmap As GoogleMap
Private MapFragment1 As MapFragment
End Sub
Sub Activity_Create(FirstTime As Boolean)
'Activity.LoadLayout("1") ' Not loading layout here
Dim p As Panel
p.Initialize("Panel")
Activity.AddView(p,0,0,100%x,100%y)
p.LoadLayout("1") ' load the layout with the mapfragment
If MapFragment1.IsGooglePlayServicesAvailable = False Then
ToastMessageShow("Please install Google Play Services.", True)
End If
End Sub
Sub MapFragment1_Ready
Log("MapFragment1_Ready")
gmap = MapFragment1.GetMap
Dim m1 As Marker = gmap.AddMarker(10, 30, "test")
m1.Snippet = "This is the snippet"
End Sub