'Dim oFont As Font = New Font( _
                       ' .Name.ToString, Font.Size, _
                       ' Font.Style) 'fehlgeschlagen gibt immer nur microsoft _
                       sans serif aus
                ' Dim oFont As Fontfamily = New FontFamily(.FullName) 
                ' 'fehlgeschlagen
                'Dim filA As FontFamily = CType(oFile, FontFamily) 
                ' 'fehlgeschlagen
                Dim fc As New System.Drawing.FontConverter
                Dim nf As Font = fc.ConvertFromString(oFile.Name)
 
                lvitm.Tag = oFile
                lvitm.Checked = False
                lvitm.Group = Me.lv_fonts.Groups(grpitem.Name)
                lvitm.SubItems(0).Text = nf.SystemFontName 'wird leer 
                ' ausgegeben nf.OriginalFontName gibt dateinamen aber nicht den 
                ' alias wie z.b "Curier New"
                lvitm.SubItems.Add(.Name)
                lvitm.SubItems.Add(.Extension)
                Me.lv_fonts.Items.Add(lvitm)