Dim l,t,w,h As Double
w = 100%x/5
h = 10%y
l = 0
t = 100%y-(h*1.5)
Dim btValue As List
btValue.Initialize
btValue.Add("User")
btValue.Add("Red Me")
btValue.Add("Post")
btValue.Add("Announce")
btValue.Add("Info")
For i = 0 To btValue.Size-1
Dim bt As Button
bt.Initialize("bt",bt.STYLE_SYSTEM)
bt.Text = btValue.Get(i)
bt.CustomLabel.TextColor = Colors.Black
bt.Color = Colors.ARGB(255,200,200,200)
Page1.RootPanel.AddView(bt,l,t,w,h)
l = l + w
Next