Private Sub Form1_Shown(ByVal sender As Object, ByVal e As _
      System.EventArgs) Handles Me.Shown
 
        Dim installedFontCollection As New Drawing.Text.InstalledFontCollection( _
          )
 
        Dim fontFamilies() As FontFamily = installedFontCollection.Families
 
        For N As Integer = 0 To fontFamilies.Length - 1
            ComboBox1.Items.Add(fontFamilies(N).Name)
        Next
 
    End Sub