B4J Question Check if JavaFX is installed

Sub getSystemProperties
    ' Declare the JavaObject and init the class
    Dim JO As JavaObject
    JO.InitializeStatic("java.lang.System")
    ' Get the system properties into one object
    Dim objProperties As Object = JO.RunMethod("getProperties", Null)
    ' Convert the properties object into a list of strings
    Dim s As String = objProperties
    s.SubString(1)
    Dim l As List
    l = Regex.Split(", ", s)
    l.Sort(True)
    ' List the properties
    For i = 0 To l.Size - 1
        Log(l.Get(i))
    Next
End Sub

 Log(GetSystemProperty("java.version",""))
 Log(GetSystemProperty("javafx.runtime.version","no javafx found"))