CommonDialog kontrola, kada se otvori metodom "ShowFont", nakon odabira fonta i scripta (Western, Cyrillic ...) ne vraca script, tj. verovatno vraca, ali ja ne znam kako.

Primer:

Na formu postavite "TextBox", "CommandButton" i "CommonDialog" kontrole.

Private Sub Command1_Click()
cdcFont.Flags = 3
cdcFont.ShowFont
txtFont.Font.Name = cdcFont.FontName
'ovde fali "txtFont.Font.Charset = ?"
End Sub