[VB.NET] Ottenere il nome del font da un file TTF

[Veronica80]

Ciao a tutti!
Ho necessità di ottenere il nome di vari font partendo dal loro file .TTF.
Ho trovato un metodo che mi sembrava valido ma sto incontrando qualche intoppo.


Il metodo è il seguente:

 Dim p As New Text.PrivateFontCollection
        p.AddFontFile("D:\Fonts\13588.TTF")
        Dim f As New Font(p.Families(0), 12)
        MsgBox(f.name)

Diciamo che in linea di massima funziona.
Dico in linea di massima perchè mi capitano alcuni file dello stesso font (per esempio MICRA) dove cambia lo stile (grassetto, italico, ecc) ma il nome che ottengo è sempre lo stesso (MICRA).


Mi spiego meglio:


ho 2 file:

• File01.ttf
  
  • Nome Font: MICRA
  
  
• File02.ttf
  
  • Nome Font: MICRA BOLD

Però quando li leggo da VB.NET ottengo sempre MICRA e quindi mi sovrascrive il precedente...


Una cosa che ho notato con il visualizzatore font di win10 è che il nome del titolo del form è corretto, ma quello nella descrizione del font è sempre MICRA. (vedi screenshot allegato)




come posso fare a leggere MICRA BOLD invece che solo MICRA????


Grazie a tutti!