CreateListviewCSS("black", "white", "cadetblue", "white", File.DirApp, "LV.css")
MainForm.Stylesheets.Add(File.GetUri(File.DirApp, "LV.css"))
Sub CreateListviewCSS(ItemBGColor As String, ItemTXTColor As String, ItemHoverBGColor As String, ItemHoverTXTColor As String, Dir As String, FileName As String)
Dim lstCSS As List
lstCSS.Initialize
lstCSS.Add(".list-cell { -fx-background-color: " & ItemBGColor & "; /* 1 */ }")
lstCSS.Add(".list-cell { -fx-background-color: " & ItemBGColor & "; /* For information */ }")
lstCSS.Add(".list-cell { -fx-text-fill: " & ItemTXTColor & "; /* 5 */ }")
lstCSS.Add(".list-cell:filled:hover {")
lstCSS.Add(" -fx-background-color: " & ItemHoverBGColor & "; /* 2 */")
lstCSS.Add(" -fx-text-fill: " & ItemHoverTXTColor & "; /* 5 */")
lstCSS.Add("}")
File.WriteList(Dir, FileName, lstCSS)
End Sub