Dim fonts As List
fonts.Initialize
fonts.AddAll(Font.AvailableNames)
fonts.Sort(True)
For Each f As String In fonts
Dim tc As TableCell = TableView1.AddSingleLine("")
Dim att As AttributedString
att.Initialize(f, Font.CreateNew2(f, 15), Colors.Black)
tc.Text = att
Next