Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("maplayout1")
''''''''''''''''''''''''''''''''''
Panel1.Visible = False
If gmap.IsInitialized = False Then
Wait For MapFragment1_Ready
gmap = MapFragment1.GetMap
End If
ProgressDialogShow2("Waiting for location...", True)
gmap.MyLocationEnabled=True
Do While gmap.MyLocation.IsInitialized = False
Sleep(600)
Loop
Dim cp As CameraPosition
cp.Initialize(gmap.MyLocation.Latitude, gmap.MyLocation.Longitude, 15)
gmap.MoveCamera(cp)
Panel1.Visible = True
ProgressDialogHide
End Sub