MS Visio and access to object properties

[Jaroslaw1985]

Hello everybody!

I need to write a Visio macro which could give me access to the object's properties. I select the object on the drawing and i click on my own button on toolbar. I have something like this:

Sub ModifyElement()
    Dim vsoSelection As Visio.Selection
    Set vsoSelection = ActiveWindow.Selection
    vsoSelection.Rotate (45)

End Sub

This is the function that rotates selected object, it works fine. My question is how to get these properties. Any help will be appreciated.