Sub listFonts(n As Node)
Dim cbox As ComboBox=n
Dim f As JavaObject
f.InitializeStatic("javafx.scene.text.Font")
Dim l As List = f.RunMethod("getFontNames",Null) ' will list all fonts registered on system
For Each fn As String In l
Dim lb As Label
lb.Initialize("")
Dim f As JavaObject
If fn.ToLowerCase.Contains("bold") And fn.ToLowerCase.Contains("italic") Then
f = fx.createfont(fn,14.0D,True,True)
else if fn.ToLowerCase.Contains("bold") Then
f = fx.createfont(fn,14.0D,True,False)
else if fn.ToLowerCase.Contains("italic")Then
f = fx.createfont(fn,14.0D,False,True)
Else
f = fx.createfont(fn,14.0D,False,False)
End If
lb.Font = f
lb.Text = fn.trim
cbox.Items.Add(lb)
Next
End Sub