Lettertype veranderen

[BW1953]

Hallo,

Ik wil het lettertype van een label wijzigen. Ik heb een listbox geladen met alle lettertypes die er zijn.
Ik klik vervolgens op een lettertype en heb de volgende code:

 Private Sub ListBox1_Click(sender As Object, e As EventArgs) Handles ListBox1.Click

        Dim fnt
        fnt = New Font(ListBox1.SelectedItem, 10, FontStyle.Regular)
        Label1.Font = fnt
        Form1.ListBox2.Font = fnt
        MsgBox(fnt.ToString)
        
    End Sub

Als ik fnt= New Font"("Algerian", 10, FontStyle.Regular)
wordt het lettertype veranderd.

Als ik Algerian vervang door listbox1.selecteditem, zie code lukt dit niet

 

[BW1953]

Sorry ben te snel geweest met de vraag.

Heb achter listbox.selecteditem tostring geplaatst werk nu wel. Excuus