Sub Activity_Create(FirstTime As Boolean)
Panel1.Initialize("Props1")
Header1.Initialize("")
Private ACD As ColorDrawable
ACD.Initialize(Colors.LightGray, 5dip)
Activity.Background = ACD
Private PCD As ColorDrawable
PCD.Initialize2(Colors.Gray, 3dip, 2dip, Colors.DarkGray)
Panel1.Background = PCD
Private PHCD As ColorDrawable
PHCD.Initialize2(Colors.Cyan, 3dip, 2dip, Colors.DarkGray)
Header1.Background = PHCD
Activity.AddView(Panel1, 1%y, 1%y, 50%x , 10%y)
PropsPanel1.AddView(Props1Header, 0, 0, Panel1.Width,10%y)
Log(Props1Header.Width)
End Sub