Sub Item_RowContentFiller(RowID As Long, LayoutName As String, CellPanel As Panel, CellIndex As Byte, Position As Int)
Dim gdTheGradientDrawable As GradientDrawable
Dim arrColours(2) As Int
arrColours(0) = Colors.DarkGray
arrColours(1) = Colors.Black
gdTheGradientDrawable.Initialize("TOP_BOTTOM", arrColours)
If ULV.IsSelected(Position) Then
'The selected rows are green
CellPanel.Color = Colors.Green
Else
' Set properties for the seperate lines that make up the list.
'-------------------------------------------------------------
'CellPanel.Color = Colors.White
CellPanel.Color = gdTheGradientDrawable
End If
'Reads the data and sets the label text
Dim lbl As Label = CellPanel.GetView(0) 'The first (and only) view of the cell is a label