Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("Layout1")
MainForm.Show
MainForm.Stylesheets.Add(GetDataURI(StyleSheet))
End Sub
Private Sub StyleSheet As String
Return $"
.button{
-fx-background-color:green;
}"$
End Sub
Private Sub GetDataURI(Data As String) As String
Dim SU As StringUtils
Return "data:text/css;base64," & SU.EncodeBase64(Data.GetBytes("UTF-8"))
End Sub