If GetType(Label1.Background) = "anywheresoftware.b4a.objects.drawable.ColorDrawable$GradientDrawableWithCorners" Then
Dim cd As ColorDrawable = Label1.Background
Dim jo As JavaObject = cd
Log($"Radius = ${jo.GetField("cornerRadius")}, BorderWidth = ${jo.GetField("borderWidth")}"$)
End If