Visio - Populating a listbox or combo box in Visio 2003

I am trying to add a forms 2.0 lisbox or combobox to a visio page. The
box will be populated with data that that comes from an other shape
eventually. The problem is that when I try to use the AddItem method
in a macro I get an object does not support this property or method
error. Here is the code I am trying:

Dim x
Dim index
Set myListBox = ActivePage.Shapes("Sheet.1")
For x = 1 To 5
index = myListBox.AddItem(x)
Next x
End Sub"


This code gives me a type mismatch with AddItem highlighted:

Dim index
Dim x
For x = 1 To 10
index = alarmListBox.AddItem(x)
Next x
End Sub"

I am not very skilled at this sort of thing but I can usually muddle
through. However I can't seem to get this to work.

Thanks for your help

jph

Hi Jay,

I've got an example in the the article "Combo Box Table of Contents" located
here: http://www.visguy.com/2006/11/08/combo-box-table-of-contents/

There's code listings in the article, and a downloadable Visio file that has
a combo box on the page, and VBA code behind it.

--
Hope this helps,

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/

The example that you linked to is very helpful. Are there any visio
programming books that cover more advanaced topics that you would
recommend?
Thanks for your help

Hi Jay,

Regarding Visio programming books, here's my review of the newest:
http://www.visguy.com/2007/07/23/book-review-visualizing-information-with-microsoft-office-visio-2007/

And "Visio 2003 Developer's Survival Pack" - a long-time "Bible" for us
Visio-geeks!
(both books at the top of this page: http://www.visguy.com/visio-links/)

--
Hope this helps,

Chris Roth
Visio MVP

Free Visio shapes:
http://www.visguy.com/category/shapes
Visio programming info:
http://www.visguy.com/category/programming/
Other Visio resources:
http://www.visguy.com/visio-links/