Type Info:
FontDialog As FontDialog
Dim Dlg As FontDialog Set Dlg = Application.Tools.RestypeEditors.FontDialog