Sub drawWithAnimatoin
Dim bc As BitmapCreator
Dim brush As BCBrush
bc.Initialize(100%x, 100%y)
Dim bmp As B4XBitmap = Root.Snapshot
brush = bc.CreateBrushFromBitmap(bmp)
Root.Color = Colors.White
For i=0 To Panel1.Height
bc.DrawCircle2(200dip, 200dip, DipToCurrent(i), brush, True, 10dip)
Panel1.SetBackgroundImage(bc.Bitmap)
Sleep(0)
Next
End Sub