Sub Globals
Private lblDay(), lblDay0, lblDay1, lblDay2, lblDay3, lblDay4 As Label
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("Main")
lblDay = Array As Label (lblDay0, lblDay1, lblDay2, lblDay3, lblDay4)
For i = 0 To lblDay.Length - 1
lblDay(i).Text = "Test " & i
Next
End Sub