I am working on a project where I allow the user to set their font, however, the issue I am running into is if I choose a font such as Minion Pro which is not a TrueType font, I am presented with the lovely error of "Only TrueType fonts are supported. This is not a TrueType font." How do I go about only having my FontDialog control only display TrueType system fonts so a user doesn't select anything other. Thanks for any assistance anyone may be able to provide me.
Private Sub SelectFont(ByVal IncomingFont As Font)
' Allow user to change Title Input Text font
With FontDialog1
' Set initial font
.Font = IncomingFont
.AllowScriptChange = False
.ShowColor = True
.ShowApply = True
.ShowDialog()
End With
End Sub