Using Office xp, Win xp
I want to find out some details about the
controls on a worksheet, the number and
the items that head the ListBox and the
items in the list for checking purposes.

so far I have the following code:
Dim i as Integer, cntShapes as Integer
cntShapes = ActiveSheet.Shapes.Count
i = 1
Do Until i cntShapes
shpName = ActiveSheet.Shapes(i).Name
ActiveSheet.Range("F" & i) = i
ActiveSheet.Range("G" & i) = shpName
i = i + 1
Loop

This gives me a column of numbers 1 to 36
and an adjacent column of shpName values Control 1 to
Control 36

How can I retrieve using code the items in each
Control (list box) or maybe
only the first item at the top of each list box?
Any help appreciated!