Sub Activity_Resume
Private wrk_clrdrw1, wrk_clrdrw2 As ColorDrawable
Activity.Color = Colors.LightGray
UI_scrollview.Initialize("")
Dim p As Panel
p.Initialize("")
Activity.AddView(p, 24%x, 24%y, 52%x, 52%y)
Activity.AddView(UI_scrollview, 25%x, 25%y, 50%x, 50%y)
UI_scrollview.Panel.Height = 100%y
wrk_clrdrw1.Initialize2(Colors.White, 4dip, 3dip, Colors.Black)
p.Background = wrk_clrdrw1
UI_button.Initialize("")
UI_scrollview.Panel.AddView(UI_button, 2%x, 5%y, 46%x, 90%y)
wrk_clrdrw2.Initialize2(Colors.Yellow, 4dip, 3dip, Colors.Red)
UI_button.Background = wrk_clrdrw2
UI_button.Text = "XXX"
UI_button.TextColor = Colors.Black
End Sub