Casella di selezione font e modifica dinamica del tipo di carattere

[=tW=]

ciao ragazzi! io ho importato in una listbox, mediante questo codice, i fonts di sistema:

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

End Class 

come faccio a cambiare il font nella label a seconda del font scelto nella listbox? nel senso, se clicco Arial, voglio che nella label1, il font usato x le scritte sia l'Arial. come lo imposto a seconda del click?