Sub Start
PF.Initialize("PF")
PF.RootPanel.LoadLayout("ProfileLayout")
scv1.Panel.LoadLayout("PFPanel")
scv1.ContentHeight = Panel1.Height
scv1.ContentWidth = scv1.Width
Main.NavControl.ShowPage(PF)
End Sub
Sub LoadLayout
Dim llabel As Label
Dim Row As Int = 1
Dim ScrollPosition As Int = 0
llabel.Initialize("llabel")
qname.text = "Q1 of " & QuestionArray.NumberOfQuestions & ": " & QuestionArray.Question(Row,0)
For x = 1 To QuestionArray.ButtonsPerQuestion(Row)
llabel.text = QuestionArray.Question(Row,x)
Log("x = " & x & " llabel = " & llabel.text)
scv1.Panel.AddView(llabel,10, ScrollPosition, 110, 50)
ScrollPosition = ScrollPosition+40
Next
End Sub