B4J Question [SOLVED] B4XDialog - How can I round the sharp edges?

Private Sub ExitFromTheApplication As ResumableSub
    Dialog.Title = AppTitle
    UpdateClip(MainForm.RootPane, 25)
    Wait For (Dialog.Show($"You want to go out of the application, Are you sure ?"$,"Yes","","Cancel")) Complete (Resp As Int)
    Return Resp
End Sub

'V.1.0
Private Sub UpdateClip (pnl As B4XView, CornersRadius As Int)
#if B4J
    Dim jo As JavaObject = pnl
    Dim shape As JavaObject
    Dim cx As Double = pnl.Width
    Dim cy As Double = pnl.Height
    shape.InitializeNewInstance("javafx.scene.shape.Rectangle", Array(cx, cy))
    If CornersRadius > 0 Then
        Dim d As Double = CornersRadius * 2
        shape.RunMethod("setArcHeight", Array(d))
        shape.RunMethod("setArcWidth", Array(d))
    End If
    jo.RunMethod("setClip", Array(shape))
#else if B4A
    Dim jo As JavaObject = pnl
    jo.RunMethod("setClipToOutline", Array(CornersRadius > 0))
#end if
End Sub