Dim PFonts As New Drawing.Text.PrivateFontCollection()
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button2.Click
        Dim FBD As New FolderBrowserDialog
        If FBD.ShowDialog = Windows.Forms.DialogResult.OK Then
            For Each strFt As String In My.Computer.FileSystem.GetFiles( _
              FBD.SelectedPath, FileIO.SearchOption.SearchTopLevelOnly, "*.ttf")
                PFonts.AddFontFile(strFt)
            Next
            ComboBox1.DataSource = PFonts.Families
            ComboBox1.DisplayMember = "Name"
        End If
    End Sub
    Private Sub ComboBox1_DrawItem(ByVal sender As Object, ByVal e As _
      System.Windows.Forms.DrawItemEventArgs) Handles ComboBox1.DrawItem
        e.Graphics.DrawString(PFonts.Families(e.Index).Name, New Font( _
        PFonts.Families(e.Index), 10, FontStyle.Regular, GraphicsUnit.Point), _
        Brushes.Black, e.Bounds)
    End Sub

Wenn alle Stricke rei?en, dann h?ng ich mich auf. ~ Karl Kraus