Forms Data Controls :: Loading Applying Installed Font To Text?

I have successfully loaded fonts that are installed in my system. But now i want that on click on NEXT Button, Label Control's font should change to installed font.

Here's the code to load font:

Dim allFonts As
New InstalledFontCollection
Dim fontFamilies()
As FontFamily = allFonts.Families()
For Each myfont
As FontFamily
In fontFamilies
ListBox1.Items.Add(myfont.Name)
Next

Here's the code for applying font to Label control

Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim allFonts As New InstalledFontCollection
Dim fontFamilies() As FontFamily = allFonts.Families()
Dim j As Integer
For j = 0 To allFonts.Families.Length - 1
Label1.Font.Name = allFonts.Families(j).Name
Next
End Sub