codice:
Imports System.Drawing.Text

Public Class frmFont

    Private Sub frmFont_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'inserisce i nomi dei fonts nella list box
        Dim Ifc As New InstalledFontCollection
        lstFont.DataSource = Ifc.Families
        lstFont.DisplayMember = "Name"
    End Sub

    Private Sub lstFont_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles lstFont.SelectedIndexChanged

        lblFont.Font = New Font(DirectCast(lstFont.SelectedItem, FontFamily),lblFont.Font.Size)
        lblFont.Text = lblFont.Font.Name
    End Sub