Sub Show ()
If PannelloConferma.IsInitialized = True Then
PannelloConferma.RemoveAllViews
End If
PannelloConferma.Initialize("PannelloConferma")
PannelloConferma.Tag="PannelloConferma"
PannelloConferma.Color = Colors.Transparent
act.AddView(PannelloConferma,0%x,0%y,100%x,100%y)
pnlSoloPicker.Initialize("")
Dim lblOk As Label
Dim lblcancel As Label
lblOk.Initialize("lblok")
lblcancel.Initialize("lblcancel")
PannelloConferma.AddView(pnlSoloPicker,PannelloConferma.Width*0.1,PannelloConferma.Height*0.1,PannelloConferma.Width*0.8,PannelloConferma.Height*0.8)
PannelloConferma.AddView(lblOk,PannelloConferma.Width*0.5,PannelloConferma.Height*0.9,PannelloConferma.Width*0.1,PannelloConferma.Height * 0.05)
PannelloConferma.AddView(lblcancel,PannelloConferma.Width*0.6,PannelloConferma.Height *0.9,PannelloConferma.Width*0.1,PannelloConferma.Height * 0.05)
LayoutBuilder.LoadXmlLayout(pnlSoloPicker, "picker")
End Sub