German App Scrollen lassen

<ScrollView xmlns:android="http://schemas.android.com/apk/res/android"
    android:layout_width="fill_parent"
    android:layout_height="fill_parent"
    >
    <TableLayout
        android:layout_width="fill_parent"
        android:layout_height="fill_parent"
        android:stretchColumns="1"
        >
        <!-- Der ganze Rest -->
    </TableLayout>
</ScrollView>

ScrollView.Panel.AddView(...)

Sub Process_Globals
    Dim Pins As List
End Sub

Sub Globals
    Dim scvSteuerung As ScrollView
End Sub

Sub Activity_Create(FirstTime As Boolean)
    'Initialisiert die Pinwerte
    If File.Exists(File.DirInternal, "Pins.txt") = False Then
        InitPins
    End If
    Activity.LoadLayout("main")
End Sub

Sub Activity_Resume
    'Liest die gespeicherten Pinwerte in die List
    Pins = File.ReadList(File.DirInternal, "Pins.txt")
    FillScollView
End Sub

Sub Activity_Pause (UserClosed As Boolean)
    'Speichert die Pinwerte in eine Datei
    File.WriteList(File.DirInternal, "Pins.txt", Pins)
End Sub

Sub InitPins
    'Initilisiert die Pinwerte
    Dim i As Int
    
    Pins.Initialize
    
    For i = 0 To 16
        Pins.Add(False)
    Next

    'Speichert die Pinwerte in eine Datei
    File.WriteList(File.DirInternal, "Pins.txt", Pins)
End Sub

Sub FillScollView
    Dim i As Int
    
    Dim width = 100dip As Int
    Dim height = 60dip As Int
    Dim height1 = height + 5dip As Int
    
    For i = 0 To 16
        Dim tbt As ToggleButton
        tbt.Initialize("tbtPin")
        tbt.Tag = i
        tbt.TextOn = "Pin " & i & CRLF & "ON"
        tbt.TextOff = "Pin " & i & CRLF & "OFF"
        scvSteuerung.Panel.AddView(tbt, 10dip, 10dip + i * height1, width, height)
        tbt.Checked = Pins.Get(i)
    Next
    scvSteuerung.Panel.Height = 10dip + i * height1
End Sub

Sub tbtPin_CheckedChange(Checked As Boolean)
    Dim tbt As ToggleButton
    Dim i As Int
    
    tbt = Sender
    i = tbt.Tag
    Pins.Set(i, Checked)
End Sub