Sub Splash_Complete
SequencedFileToUse = "Shooters.txt"
TextReader1.Initialize(File.OpenInput(File.DirRootExternal, SequencedFileToUse))
SV1.Initialize(0)
Dim pnl As Panel
pnl = SV1.Panel
Activity.AddView(SV1,50dip,50dip,100%x,100%y)
lstChecks.Initialize
RHeight = 50dip
Infinite = 0
Cntr = 0
Do While Infinite = 0
Line1 = TextReader1.ReadLine
If Line1 = "END,END" Then
Exit
End If
RecSplit = Regex.Split("," , Line1)
Dim chk As CheckBox
chk.Initialize("")
chk.text=RecSplit(0)
lstChecks.Add(chk)
Dim lbll As Label
lbll.Initialize("")
lbll.Text=RecSplit(1)
lbll.Gravity= Gravity.CENTER_VERTICAL
pnl.AddView(chk,0,RHeight*(Cntr-1), 120dip, RHeight)
pnl.AddView(lbll,100,RHeight*(Cntr-1), 120dip, RHeight)
Cntr = Cntr + 1
Loop
TextReader1.Close
pnl.Height = lstChecks.Size*RHeight
End Sub