Список с пустой колонкой

Question

У меня есть 5 списков в форме, и все эти списки имеют пустой «заголовок» (разделенный тонкой линией) вверху.Свойства выглядят так же, как и в других формах, которые не имеют заголовка.Списки заранее заданы в форме, загружаются программно из приложения без использования метода Rowsource.Свойство Columnheads имеет значение False.Как я могу удалить пустой заголовок?Что я не заметил?

РЕДАКТИРОВАТЬ: присоединение источника, хотя он выглядит так же, как и все другие коды для загрузки других списков, которые выглядят хорошо.

Private Sub LoadNamesP(lbThis As Object, aNames() As String)

Dim k As Long             ' aux

If lbThis Is Nothing Then
    Debug.Print "No input, cannot load, exit"
    Exit Sub
End If

If Not lbThis.Visible Then
    Debug.Print lbThis.Name & "is hidden, cannot load, exit"
    Exit Sub
End If

Debug.Print "Loading list " & lbThis.Name

lbThis.Clear

For k = LBound(aNames) To UBound(aNames)
    lbThis.AddItem aNames(k)
Next k

End Sub