Public Function EnumFontFamProc (ByVal lpelf As Long, ByVal lpntm As Long, ByVal FontType As Long, ByVal lParam As Long) As Long
' здесь размещается ваш код
End Function
EnumFontFamProc является функцией обратного вызова, используемого функцией EnumFontFamilies для перечисления шрифтов. Имя данной функции EnumFontFamProc выбрано произвольно, в соответствии со сложившимися традициями
Если функция возвращает 0, EnumFontFamilies немедленно прекращает перечисление шрифтов. Если возвращается ненулевое значение, EnumFontFamilies продолжает перечисление шрифтов.
Как и все функции обратного вызова, функция EnumFontFamProc должна находиться в стандартном модуле с ключевым словом Public