Newbie Q re vsoCurrentShape

[Rhapsodie]

I am simply trying to return the colour property of vsoCurrentShape but I can't find a way to get it. I've tried things like:

Dim sMsg() As String, iFclr As Integer
iFclr = vsoCurrentShape.Cells("FillForegnd")

and

Dim shShape As Visio.Shape
shshape = vboCurrentShape
etc

How do I get the properties from the cells in the currently selected shape?