'background panel for test only
Dim panel1 As Panel
panel1.Initialize ("")
panel1.Color = Colors.Red
panel1.SendToBack
Activity.AddView (panel1, 20%x, 20%y, 60%x, 60%y)
Sub Popup_Click
Dim pnlInput AsPanel
pnlSelect.Initialize ("Select")
pnlSelect.Color = Colors.ARGB(150,0,0,0)
Activity.AddView (pnlSelect, 0, 0, 100%x, 100%y)
End Sub