Thursday, April 5, 2007

writing code makes me want to end it all

Dim dblX As Double
Dim pArea As IArea
Set pArea = [Shape]
dblX = pArea.Centroid.X

No comments: