title: Getting information about installed fonts
body: <p>I want to retreive information of installed fonts, I've tried by this way:</p>
  
  <pre><code>Private Function Get_Installed_Fonts() As Array
      Dim AllFonts As New Drawing.Text.InstalledFontCollection ' Get the installed fonts collection.
      Dim FontFamilies() As FontFamily = AllFonts.Families()   ' Get an array of the system's font familiies.
      Return FontFamilies ' Return the array
  End Function
  </code></pre>
  
  <p>Then I can do...:</p>
  
  <pre><code>   For Each Font As FontFamily In Get_Installed_Fonts()
         MsgBox(Font.Name)
     Next
  </code></pre>
  
  <p>But I can't find the way to do this:</p>
  
  <pre><code>    For Each Font As FontFamily In Get_Installed_Fonts()
          MsgBox(Font.IsSystemFont)
          MsgBox(Font.OriginalFontName)
          MsgBox(Font.SizeInPoints)
      Next
  </code></pre>
  
  <p>What I'm missing there?</p>
  
  <p>That are the things that I will obtain, and I need too a way to search if a font is installed, for example:</p>
  
  <pre><code>If FontsArray.contains("FontName") Then...
  </code></pre>