This is a simple like animation. It looks smoother and better in real. Private Sub LikeAnimation(xlbl As B4XView,duration As Int) Dim txt_size As Float = xlbl.TextSize If xlbl.Text = Chr(0xE87E) Then xlbl.SetTextSizeAnimated(duration/2,1) Sleep(duration/2)...
www.b4x.com