German Custom ScrollView

Sub Globals
    Private ScrollView1 As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    Activity.LoadLayout("Main")
    Dim svPanel As Panel
    svPanel = ScrollView1.Panel
    For i = 0 To 3
        Dim tmpP As Panel
        tmpP.Initialize("")
        tmpP.SetLayout(0,0,svPanel.Width,svPanel.height/10)
        svPanel.AddView(tmpP, 5dip, 5dip + i * tmpP.height, tmpP.Width, tmpP.Height)
        Dim tmpL As Label
        tmpL.Initialize("")
        tmpL.SetLayout(0,0,tmpP.Width,tmpP.height)
        tmpL.Text = "TEST" & NumberFormat(Rnd(1,1000),3,0)
        tmpP.AddView(tmpL, 0, 0, tmpL.Width, tmpL.height)
    Next
End Sub

tmpL.TextColor = Colors.red