Sub Animacao_Rotacao (v As B4XView, duracao As Int, volta As Int)
If v.IsInitialized And v.Rotation <> 0 Then Return
If v.IsInitialized Then v.SetRotationAnimated(duracao, volta)
Sleep(duracao)
If v.IsInitialized Then v.Rotation = 0
Sleep(10)
End Sub