Public Function WhatIsGeometricBounds()
Dim IllApp As New Illustrator.Application
Dim IllDoc As Illustrator.Document
Dim pItem As PathItem
Dim temObj As Object
IllDoc = IllApp.ActiveDocument
For Each pItem In IllDoc.Selection
Console.WriteLine("top: " & pItem.Top)
Console.WriteLine("left: " & pItem.Left)
Console.WriteLine("height: " & pItem.Height)
Console.WriteLine("width: " & pItem.Width)
Console.WriteLine("bottom: " & pItem.Top - pItem.Height)
Console.WriteLine("right: " & pItem.Width + pItem.Left)
temObj = pItem.GeometricBounds
For n As Integer = 0 To 3
Console.WriteLine("GeometricBounds(" & n & "): " & temObj(n))
Next
Next
Return temObj
End Function
