Sub Activity_Create(FirstTime As Boolean)
Dim lv1 As ListView
lv1.Initialize("lv1")
Dim gd As GradientDrawable
gd.Initialize("BOTTOM_TOP", Array As Int (Colors.White, Colors.Black, Colors.White))
lv1.SingleLineLayout.Background = gd
For i = 1 To 100
lv1.AddSingleLine("Item #" & i)
Next
Activity.AddView(lv1, 0, 0, 100%x, 100%y)
End Sub