Dim btn As Button
btn.Initialize("btnsumarcant")
btn.SetBackgroundImage(LoadBitmap(File.DirAssets, "MasAzul32.png"))
Dim btn1 As Button
btn1.Initialize("btnrestarcant")
btn1.SetBackgroundImage(LoadBitmap(File.DirAssets, "MenosRojo32.png"))
Base=Activity
Dialog.Initialize (Base)
Dim p As B4XView = xui.CreatePanel("")
'Add the Buttons in Dialog
p.AddView(btn, 200dip, 60dip, 50dip, 50dip)
p.AddView(btn1, 200dip, 120dip, 50dip,50dip)
p.SetLayoutAnimated(0, 0, 0, 300dip, 300dip) 'set the content size
Dialog.ShowCustom(p, "Edit", "", "Cancel")