Sub PlayRoute
Dim CancelableCallback1 As CancelableCallback
CancelableCallback1.Initialize("CancelableCallback1")
Dim LatLng1 As LatLng
Select Case St
Case 0
LatLng1.Initialize(37.4,-122.1)
GoogleMapsExtras1.MoveCamera(GoogleMap1, CameraUpdateFactory1.NewLatLng(LatLng1))
CameraUpdate1=CameraUpdateFactory1.NewLatLngZoom(LatLng1, 4)
GoogleMapsExtras1.AnimateCamera3(GoogleMap1, CameraUpdate1, 7000, CancelableCallback1)
Case 1
LatLng1.Initialize(-33.88, 151.21)
CameraUpdate1=CameraUpdateFactory1.NewLatLngZoom(LatLng1, 5)
GoogleMapsExtras1.AnimateCamera3(GoogleMap1, CameraUpdate1, 7000, CancelableCallback1)
End Select
End Sub
Sub CancelableCallback1_Cancel
Log("Cb_Cancel" & St)
End Sub
Sub CancelableCallback1_Finish
Log("Finish")
St=St+1
PlayRoute
End Sub