Überschrift in Mehrspaltiger Listbox

ist es möglich, in die Listbox eine Überschrift zu integrieren, ohne die Verwendung von Zellbereichen (.RowSource)?

Ich befülle meine Listbox so:

Private Sub QAB_ListBox_befuellen(Registerblatt As Single, i As Integer)
Dim N As Single
Dim j As Single

With ListBox_QAB
.AddItem
N = .ListCount - 1
For j = 1 To 10
.List(N, j - 1) = Matrix(Registerblatt).Tabelleninhalt(i, j)
Next j
End With
End Sub

Ich könnte natürlich die Überschrift als 1.Item adden, das ist aber nicht so schön...

Vielen Dank im voraus!

Michael