Sub Globals
Dim lv As ListView
Dim sb As SeekBar
End Sub
Sub Activity_Create(FirstTime As Boolean)
Activity.Color=Colors.Blue
lv.Initialize("")
Activity.AddView(lv,10%x,10%y,80%x,50%y)
lv.Color=Colors.Black
lv.AddSingleLine("1")
lv.AddSingleLine("2")
lv.AddSingleLine("3")
sb.Initialize("sb")
Activity.AddView(sb,10%x,80%y,80%x,10%y)
sb.Max=200
sb.Value=100
End Sub
Sub sb_ValueChanged (Value As Int, UserChanged As Boolean)
lv.Width=sb.Value
End Sub