How do I support all fonts? (Not just truetype fonts?)

[Jake6177]

Hey, I am working on a notepad in VB.net.

I have a font dialog set up, but my when I choose a font that is not truetype, then it shuts down on me. Any ideas how I can support other types of fonts and how I can put this into my code? All I have is the font dialogue, and nothing else..

Code:

If TabControl1.TabCount = 0 Then
        End If
        Dim FS As New FontDialog
        If FS.ShowDialog = Windows.Forms.DialogResult.OK Then
            CType(TabControl1.SelectedTab.Controls.Item(0), RichTextBox).Font = FS.Font
        Else
            Exit Sub
        End If

Thanks in advance,
Jake