Как добавить заголовки в ListBox в пользовательской форме Outlook

Question

Я создаю пользовательскую форму Outlook для отображения всех адресов в глобальном списке адресов с флажком рядом с ними.

Как добавить заголовки в список?

Я знаю ColumnHeads свойство должно быть включено, но я вижу только эту работу с помощью Excel.

Я использую эту функцию для загрузки их в список.

Private Sub CommandButton1_Click()
    Dim o, AddressList, AddressEntry
    Dim iCount As Integer
    Set o = CreateObject("Outlook.Application")
    Set AddressList = o.Session.AddressLists("Global Address List")

    iCount = 0
    ListBox1.Clear
    For Each AddressEntry In AddressList.AddressEntries
        ListBox1.AddItem
        ListBox1.List(iCount, 0) = AddressEntry.Name
        iCount = iCount + 1
    Next AddressEntry
End Sub