Private Sub BusyLoop
Dim MyIndex As Int = BusyIndex
Do While MyIndex = BusyIndex
If Vertical Then
BusyBrush.SrcOffsetY = BusyBrush.SrcOffsetY + 3
Else
BusyBrush.SrcOffsetX = BusyBrush.SrcOffsetX - 3
End If
Dim tasks As List
tasks.Initialize
tasks.Add(bc.AsyncDrawRect(bc.TargetRect, TransparentBrush, True, 0))
tasks.Add(bc.AsyncDrawRectRounded(bc.TargetRect, BusyBrush, True, 0, 15))
bc.DrawBitmapCreatorsAsync(Me, "BC", tasks)
Wait For BC_BitmapReady (bmp As B4XBitmap)
If xui.IsB4J Then bmp = bc.Bitmap
bc.SetBitmapToImageView(bmp, mIV)
Sleep(16)
Loop
End Sub