sub lv_Theme_ItemClick (Position as int, Value as object)
Select Case Value
Case "Light"
UpdateTheme(Colors.White)
Case "Dark"
UpdateTheme(Colors.Black)
End Select
Called Sub:
B4X:
Sub UpdateTheme(color1 as ColorDrawable)
pnl_Home.Background = color1
End Sub