Android Question [Solved] FadeIn effect in BitmapCreator Effects

' Class Example
Sub Class_Globals
'...
'...
'...
    Private FadedOut As Boolean

Private Sub FadeOut_Animated (iv As B4XView)
   Dim bc As BitmapCreator
   bc.Initialize(OriginalBmp.Width / OriginalBmp.Scale, OriginalBmp.Height / OriginalBmp.Scale)
   bc.FillRect(xui.Color_Transparent, bc.TargetRect)
   If FadedOut Then
       effects.TransitionAnimated(1500, bc.Bitmap, OriginalBmp, iv)
   Else
       effects.TransitionAnimated(1500, OriginalBmp, bc.Bitmap, iv)
   End If
   FadedOut = Not(FadedOut)
End Sub

  Dim bc As BitmapCreator
   bc.Initialize(OriginalBmp.Width / OriginalBmp.Scale, OriginalBmp.Height / OriginalBmp.Scale)
   bc.FillRect(xui.Color_Transparent, bc.TargetRect)
   effects.TransitionAnimated(1500, bc.Bitmap, OriginalBmp, iv)

AddImageAndLabel2(Null, "FadeIn (Click)", "FadeIn_Animated")