Italian Free Hand Drawing (da B4J Question)

Sub GetFirma
    Dim dialog As B4XDialog
    dialog = SetDialog(dialog)
    Dim p As B4XView = xui.CreatePanel("")
    p.Width = 400
    p.Height = 200
    p.LoadLayout("firmacliente")
    pnlDrawing = xui.CreatePanel("pnlDrawing")
    pnlDrawing.SetColorAndBorder(xui.Color_White, 1, xui.Color_LightGray, 2)
    p.AddView(pnlDrawing,3,22,390,106)
    cvsDrawing.Initialize(pnlDrawing)
    Dim rs As ResumableSub = dialog.ShowCustom(p, "Ok", "", "Esci")
    Wait For (rs) Complete (Result As Int)
    If Result = xui.DialogResponse_Positive Then
        imgFirma.mBase.SetColorAndBorder(xui.Color_White, 1, xui.Color_LightGray, 2)
        imgFirma.Bitmap = cvsDrawing.CreateBitmap
    End If
End Sub