Scusa ancora il disturbo:
ho risolto, e per chi interessato ho fatto così:

Dim SystemFontFamily As FontFamily
For Each SystemFontFamily In FontFamily.Families
ListBoxFont.Items.Add(SystemFontFamily.Name)
Next

Adesso voglio provare a crivere ogni Item con corrispettivo carattere, ma questo è un altro argomento e lo posto da un'altra parte...ciao ciao