Sub ListAvailableFonts
Dim fNo As Int
Comboboxfont.Initialize("cmb") ' I need this line as I don't use the layout
Comboboxfont.Items.Clear
For Each familyname As String In fx.GetAllFontFamilies
Dim lbl As Label
lbl.Initialize("lbl")
lbl.Text = familyname & " ["&fNo&"]"
fNo = fNo + 1
lbl.Tag = fNo
lbl.TooltipText = lbl.Text
Dim tt As JavaObject = asJO(lbl).RunMethodJO("getTooltip",Null)
tt.RunMethod("setFont",Array(fx.CreateFont(familyname, 22, False,False)))
' the two lines above can be replaced with the one line below, but harder to understand
' asJO(lbl).RunMethodJO("getTooltip",Null).RunMethod("setFont",Array(fx.CreateFont(familyname, 22, False,False)))
' tootip shows the font
Comboboxfont.Items.Add(lbl)
Next
End Sub