If FloatTextField.TextField Is TextArea And xui.IsB4J Then
Dim ta As TextArea = FloatTextField.TextField
ta.WrapText = False
ta.Style = $"
-fx-background-image: url(${File.GetUri(File.DirAssets, "img.jpg")});
-fx-background-repeat: stretch;
-fx-background-size: 100% 100%;
-fx-background-position: center center;
-fx-effect: dropshadow(three-pass-box, rgba(0,0,0,0.9), 10, 0, 0, 0);
-fx-background-color: transparent;
"$
End If