Private Sub Button1_Click
Dim Img As B4XBitmap = ImageView1.GetBitmap ' CAN ALSO USE ImageView1.Snapshot
If Img.IsInitialized = False Then Return
'Loop for slow transition blur effect
For i = 0 To 99
BI.BlurAsync(Img, i)
Sleep(20) '20 milliseconds per transition for slow blur
Next
End Sub
Sub BI_BlurDone(Blurred As Object)
Dim Bmp As B4XBitmap = Blurred
If Bmp.IsInitialized = False Then Return
ImageView1.SetBitmap(Bmp)
End Sub