Casella di selezione font e modifica dinamica del tipo di carattere

[=tW=]

questo è tutto il codice... mi dice che c'è un errore di casting

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 = lstFont.SelectedItem
        lblFont.Text = lstFont.SelectedItem
    End Sub