Sub Map_Ready
Log("map ready")
gmap = mFragment.GetMap
If gmap.IsInitialized = False Then
ToastMessageShow("Error initializing map.", True)
Else
gmap.MyLocationEnabled = True
Dim cp As CameraPosition
userlocation.Initialize(lat,lng)
If userlocation.IsInitialized = True Then
lng = userlocation.Longitude
lat = userlocation.Latitude
Else
Msgbox("Location Unavailable","Error")
End If
cp.Initialize(lat, lng, gmap.CameraPosition.Zoom)
gmap.AnimateCamera(cp)
End If
End Sub