[RESOLVED] Changing Fonts at Runtime ?

[alexjanjic]

Well i am making a Notepad Program with some useful Functions now im hanging here:

I loaded all Fonts to a Combobox like this:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim installed_fonts As New InstalledFontCollection

        For Each font_family As FontFamily In installed_fonts.Families
            tscb_font.Items.Add(font_family.Name)
        Next


    End Sub

Now ok that works now i want to switch the Font i did this but it doesent work:

rtb_text.Select()
        rtb_text.SelectionFont = tscb_font.Font

All Fonts are in the Combobox so i only need to know how to switch the Fonts...

But it doesent work i hope you guys can help me =)