Sub Activity_Create(FirstTime As Boolean)
activity.LoadLayout("Tangram")
....
create_views
End Sub
Sub create_views
...
[B]sv.Initialize(1.5*activity.height)
activity.AddView(sv,0,0,activity.Width,activity.Height)[/B]
sv_init
end sub
sub sv_init
[B]sv.Initialize(1.5*activity.Height)
activity.AddView(sv,0,0,activity.Width,activity.Height)[/B]
sv.Panel.Width = activity.Width
sv.Panel.Color = Colors.black
sv.BringToFront
...
end sub