Sub Activity_Create(FirstTime As Boolean)
ListView1.Initialize("ListView1")
Dim GD As GradientDrawable
GD.Initialize("TR_BL", Array As Int(Colors.White, Colors.LightGray))
Activity.Background = GD
ListView1.ScrollingBackgroundColor = Colors.Transparent
Dim Bitmap1 As Bitmap
Bitmap1.Initialize(File.DirAssets, "Pic1.jpg")
Dim Bitmap2 As Bitmap
Bitmap2.Initialize(File.DirAssets, "Pic2.jpg")
Dim Bitmap3 As Bitmap
Bitmap3.Initialize(File.DirAssets, "Pic3.jpg")
Dim Bitmap4 As Bitmap
Bitmap4.Initialize(File.DirAssets, "Pic4.jpg")
Dim Bitmap5 As Bitmap
Bitmap5.Initialize(File.DirAssets, "Pic5.jpg")
ListView1.TwoLinesAndBitmap.ItemHeight = 160dip
ListView1.TwoLinesAndBitmap.ImageView.Height = 150dip
ListView1.TwoLinesAndBitmap.ImageView.Width = 150dip
ListView1.TwoLinesAndBitmap.Label.Gravity = Gravity.CENTER
ListView1.TwoLinesAndBitmap.Label.TextColor = Colors.Blue
ListView1.TwoLinesAndBitmap.SecondLabel.Gravity = Gravity.CENTER
ListView1.TwoLinesAndBitmap.SecondLabel.TextColor = Colors.Cyan
ListView1.SingleLineLayout.ItemHeight = 100dip
ListView1.SingleLineLayout.Label.TextSize = 20
ListView1.SingleLineLayout.Label.TextColor = Colors.Blue
ListView1.SingleLineLayout.Label.Gravity = Gravity.CENTER
ListView1.FastScrollEnabled = True
For i = 1 To 5
ListView1.AddTwoLinesAndBitmap("Machine #" & i, "This is the second line.", Bitmap1)
ListView1.AddTwoLinesAndBitmap("Machine #" & i, "This is the second line.", Bitmap2)
ListView1.AddTwoLinesAndBitmap("Machine #" & i, "This is the second line.", Bitmap3)
ListView1.AddTwoLinesAndBitmap("Machine #" & i, "This is the second line.", Bitmap4)
ListView1.AddTwoLinesAndBitmap("Machine #" & i, "This is the second line.", Bitmap5)
Next
Activity.AddView(ListView1, 0, 0, 100%x, 100%y)
End Sub