Sub Activity_Create(FirstTime As Boolean)
Dim newBtn As Button
Dim Picture As ImageView
Activity.Color = Colors.RGB(255, 222, 173) ' Navajo White
Activity.Title = "Example"
newBtn.Initialize("newPic")
newBtn.Text= "New"
newBtn.TextSize= 20
newBtn.TextColor= Colors.Black
newBtn.Typeface= Typeface.DEFAULT_BOLD
newBtn.Gravity= Gravity.CENTER
Picture.Initialize("")
Picture.Color= Colors.Black
rl.Initialize("RelLayout")
Activity.AddView(rl, 0, 0, -2, -2)
rl.SetPadding(3dip, 0, 0, 0)
rl.SetSize(rl.size_MatchParent, rl.size_WrapContent)
rl.SetXalignment(rl.xAlign_ParentLeft, "")
rl.SetYalignment(rl.yAlign_ParentTop, "")
rl.AddView(newBtn, "NewBtn")
rl.SetSize(200dip, 200dip)
rl.SetYalignment(rl.yAlign_BelowView, "NewBtn")
rl.AddView(Picture, "Picture")
rl.SetSize(80dip, 80dip)
rl.SetYalignment(rl.yAlign_BelowView, "Picture")
rl.AddLabel("Label", "Label", "Testing 123", 20, True, 2, Colors.Black, "Edit", 0)
rl.SetSize(rl.size_WrapContent, rl.size_WrapContent)
rl.SetYalignment(rl.yAlign_BelowView, "Label")
rl.AddTextbox("Edit", "Edit", rl.DataType_Uppercase_All, "", rl.ActionBtn_Next, 2, 5, 1, "", 20, Colors.Black, "Test", Colors.Cyan, Null, 0, "Edit2", "")
rl.SetXalignment(rl.xAlign_RightOfView, "Edit")
rl.SetSize(rl.size_WrapContent, 0)
rl.AddTextbox("Edit2", "Edit2", rl.DataType_URL, "", rl.ActionBtn_Done, 2, 0, 5, "", 20, Colors.Black, "Test", Colors.Cyan, Null, 0, "", "Edit")
End Sub