I'm having a problem getting column headings to show up in a list box
control. I thought that, if the ColumnHeads property was set to True, the
first row of data would show up as column headings in the list box. This
column heading row would not be a selectable row. Here's a simple example
that illustrates my problem:

TestForm.TestListBox.Visible = True
TestForm.TestListBox.Clear
Dim n as Integer
For n = 1 To 10
If n = 1 Then
TestForm.TestListBox.AddItem
TestForm.TestListBox.List(n - 1, 0) = "Col 1"
TestForm.TestListBox.List(n - 1, 1) = "Col 2"
TestForm.TestListBox.List(n - 1, 2) = "Col 3"
End If
TestForm.TestListBox.AddItem
TestForm.TestListBox.List(n, 0) = n
TestForm.TestListBox.List(n, 1) = n + 1
TestForm.TestListBox.List(n, 2) = n + 2
Next n
TestForm.Show

The above section of code populates the list box ok, however, the list box
column heading row remains blank. The intended column headings (Col 1, Col 2
and Col 3) show up as the first selectable row in the list box which is not
what I want to do.

Any help would be greatly appreciated.

p.s. The source data for the list box is contained in specific columns for
a subset of rows in an existing spreadsheet.