Public Sub ChangeBackgroundColor
Dim body As BANanoElement
body.Initialize("body")
If IsThemeLight Then
If body.HasClass("theme-dark-body") Then
body.RemoveClass(("theme-dark-body"))
End If
#IF CSS
.theme-light-body {
background-color: lightgray !important;
}
#End If
body.AddClass("theme-light-body")
Else
If body.HasClass("theme-light-body") Then
body.RemoveClass(("theme-light-body"))
End If
#IF CSS
.theme-dark-body {
background-color: black !important;
}
#End If
body.AddClass("theme-dark-body")
End If
End Sub