Sub Globals
Dim ScrollView1 As ScrollView
Dim pnl As Panel
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.LoadLayout("sv1")
ScrollView1.Panel.Height = 2000
For i = 0 To 5
Dim bt As Button ' ..... @@ Dim button here
bt.Initialize("bt")
bt.Color=Colors.Yellow
bt.Text=i
ScrollView1.Panel.AddView(bt, 5dip, 5dip + i * 200dip, ScrollView1.Width - 10dip, 190dip)
Next
End Sub
Sub bt_click
Dim b As Button
b = Sender
Log (b.Text)
End Sub