Dim p as panel
p.initialize("") 'p.initialize("close") se vuoi chiuderlo al click del pannello
activity.addview(p,0,0,100%x,100%y)
p.color = 0x72000000 'Notazione esadecimale, ARGB
Dim b as button
b.initialize("close")
p.addview(b,p.width-50dip,0,50dip,50dip)
Sub close_Click
dim send as view = sender
if send is button then
dim p as panel = send.parent
else
dim p as panel = send
end if
p.removeView
end sub