B4X:
Sub AppStart (Form1 As Form, Args() As String)
Form1.Show
Dim ivSize As Int = 300
Dim iv As ImageView
iv.Initialize("")
Form1.RootPane.AddNode(iv, 0, 0, ivSize, ivSize)
Dim bc As BitmapCreator
bc.Initialize(ivSize, ivSize)
bc.DrawRect(bc.TargetRect, xui.Color_Red, False, 1)
bc.SetBitmapToImageView(bc.Bitmap, iv)
iv.SetLayoutAnimated(10000, 250, 250, ivSize, ivSize)
End Sub