Bug? B4A 6.8 about rich text Image show

Sub Activity_Create(FirstTime As Boolean)
    'Do not forget to load the layout file created with the visual designer. For example:
    Activity.LoadLayout("Layout1")
    Dim cl As ColorDrawable
    cl.Initialize(Colors.Gray,0)
    EditText1.Background=cl
    Dim cs As CSBuilder
    cs.Initialize.Color(Colors.Red).Append("Hello ").Pop
    cs.Bold.Color(Colors.Green).Append("Colorful ").Pop 'two pops: the first removes the green color and the second removes the bold style
    cs.Append("World!").Image(LoadBitmap(File.DirAssets,"7.gif"),25dip,25dip,False).Append("dddd")
    For i=1 To 30
        cs.Image(LoadBitmap(File.DirAssets,"7.gif"),25dip,25dip,False)
    Next
    cs.PopAll
    EditText1.Text=cs
End Sub