Android Question Combine B4XCanvas with BitmapCreator / How to write text in BitmapCreator ?

Sub Class_Globals
    Private Root As B4XView
    Private xui As XUI
    
    Private pnlTest As B4XView
    Private cvsTest As B4XCanvas
    Private bmcTest As BitmapCreator
    Private xFont As B4XFont
    Private rctText, rctDest As B4XRect
End Sub

Public Sub Initialize
'    B4XPages.GetManager.LogEvents = True
End Sub

'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
    Root = Root1
    Root.LoadLayout("MainPage")
    
    cvsTest.Initialize(pnlTest)
    bmcTest.Initialize(pnlTest.Width, pnlTest.Height)

    Draw
End Sub

Private Sub Draw
    xFont = xui.CreateDefaultFont(20)
    cvsTest.DrawRect(cvsTest.TargetRect, xui.Color_Red, True, 1)
    rctText = cvsTest.MeasureText("Test", xFont)
    
    bmcTest.Initialize(rctText.Width, rctText.Height)
    bmcTest.FillGradient(Array As Int(xui.Color_Blue, xui.Color_Magenta, xui.Color_Blue), bmcTest.TargetRect, "LEFT_RIGHT")

    rctDest.Initialize(100dip + rctText.Left, 50dip + rctText.Top , 100dip + rctText.Right, 50dip + rctText.Bottom)
    
    cvsTest.DrawBitmap(bmcTest.Bitmap, rctDest)
    
    cvsTest.DrawText("Test", 100dip, 50dip, xFont, xui.Color_Yellow, "LEFT")
End Sub

Private Sub btnRun_Click
    Private NewAngle, Duration As Int
    NewAngle = Rnd(360, 1800)
    Duration = NewAngle * 2
    NewAngle = -NewAngle
    
    Snap = True
    btnRun.Enabled = False
    AnimateTo(Angle + NewAngle, Duration)
End Sub

Private Sub SetLocker
    Private a, d As Int
    
    a = Abs(Angle)
    d = Abs(DeltaAngle)
    a = a Mod d
    Select a
        Case 0, 1, 2, 3
            lblReference.Rotation = 0
        Case 4
            lblReference.Rotation = -35 * Direction
        Case 5
            lblReference.Rotation = -55 * Direction
        Case 6, 7, 8, 9
            lblReference.Rotation = -65 * Direction
        Case Else
            lblReference.Rotation = 0
    End Select
End Sub

Private Sub SetLocker
    Private a, d As Int
   
    a = Abs(Angle)
    d = Abs(DeltaAngle)
    a = a Mod d
    Select a
        Case 0, 1
            lblReference.Rotation = 0
        Case 2
            lblReference.Rotation = -10 * Direction
        Case 3
            lblReference.Rotation = -20 * Direction
        Case 4
            lblReference.Rotation = -35 * Direction
        Case 5
            lblReference.Rotation = -55 * Direction
        Case 6, 7, 8, 9
            lblReference.Rotation = -65 * Direction
        Case Else
            lblReference.Rotation = 0
    End Select
End Sub

Private Sub SnapRotation
    If Snap = True Then
        Private New As Int
        
        Select ReferencePosition
            Case "12 o'clock"
                If (90 Mod DeltaAngle) = 0 Then
                    New = (Floor(Angle / DeltaAngle) + 0.5) * DeltaAngle
                Else
                    New = (Floor(Angle / DeltaAngle + 0.5)) * DeltaAngle
                End If
        End Select
        AnimateTo(New, 500)
        New = New Mod 360
        
        CurrentSectorIndex = Angle Mod 360

        Select ReferencePosition
            Case "12 o'clock"
                CurrentSectorIndex =  270 - CurrentSectorIndex
            End Select
        
        If CurrentSectorIndex < 0 Then
            CurrentSectorIndex = CurrentSectorIndex + 360
        End If
        ......
    End Sub