Sub createPanel
Private panelX As Panel
Log("add panel")
panelX.Initialize("pQuest")
Private lbl As Label
lbl.Initialize("")
lbl.Text = "xxx yyy zzz"
lbl.TextSize = 20
lbl.TextColor = Colors.Black
' lbl.Color = Colors.Green
Private cd As ColorDrawable
cd.Initialize2(Colors.ARGB(125, 255, 255, 255), 20, 1, Colors.Gray)
panelX.Background = cd
p_Main.AddView(panelX, 10, 0, 80%x, 200dip) 'add the panel to the layout
panelX.AddView(lbl, 20, 10, (panelX.Width * 0.9), 80dip)
panelX.left = (Root.Width / 2) - (panelX.Width / 2)
panelX.top = (Root.Height / 2) - (panelX.Height / 2)
panelX.BringToFront
panelX.Elevation = 100dip
panelX.Visible = True
End Sub