lftMenu.Background = CreateGD
For i = 1 To 30
ListView1.AddSingleLine("Item " & i)
ListView1.SingleLineLayout.Label.TextSize=12
ListView1.SingleLineLayout.Label.Background = CreateGD
ListView1.TwoLinesLayout.Label.Background = CreateGD
ListView1.TwoLinesLayout.SecondLabel.Background = CreateGD
Next
Dim jo As JavaObject = ACToolBarLight1
Dim xl As XmlLayoutBuilder
jo.RunMethod("setPopupTheme", Array(xl.GetResourceId("style", "ToolbarMenu")))
End Sub
Sub CreateGD As GradientDrawable
Dim gd As GradientDrawable
gd.Initialize("BOTTOM_TOP", Array As Int (Colors.rgb(103,58,183), Colors.rgb(103,58,183), Colors.rgb(103,58,183)))
Return gd
End Sub