Declare Function ChooseFont Lib "comdlg32" Alias "ChooseFontA" (lpcf As CHOOSEFONT_TYPE) As Long
ChooseFont открывает стандартное окно Общего диалога для выбора шрифта. Вся необходимая информация для создания диалогового окна, хранится в структуре CHOOSEFONT_TYPE
В случае возникновения ошибки или при нажатии пользователем кнопки Отмена, функция возвращает 0 (пользуйтесь CommDlgExtendedError для получения кода ошибки). В успешном случае функция возвращает ненулевое значение.
смотри пример comdlg.zip