Мне тут захотелось создать свой выпадающий список с установленными шрифтами

Попробовал тупо извлечь List из стандартной кнопки "Шрифт". Но в окне LocalWindow такого нет
Может, кто знает ещё способы?

    Dim j As Object
    
    Set j = Application.CommandBars("Format").Controls(1)
    Debug.Print j.List(1)

http://www.sql.ru/forum/1275709/poluchit-spisok-shriftov-v-access