Microsoft Visio 2003 Forum

Hi,

I want to show shape custom properties when I choose an Item of Combo Box in Visio 2003.
I have this code so far.

Private Sub ComboBox1_Change()

Dim visShape As Visio.Shape
Set visShape = ActivePage.Shapes.Item(4)

Select Case ComboBox1
Case "hardware devices"
visShape.Application.DoCmd (1312)
Case ...
End Select
End Sub

The problem with him is that this display the Custom Properties of the Selected Shape.
I want to display this shape wich I want in this case :
Set visShape = ActivePage.Shapes.Item(4)

I think this is very close to the right code,and I don't know what's wrong with this code.
I'll be greatful to you if you have any ideas about this !!!

Tnank you in advanced!