GetDeviceRect Method Example

The following example retrieves the points of the bounding rectangle of the Oval object Oval1 in device coordinates.

Dim dTop As Long

Dim dLeft As Long

Dim dBottom As Long

Dim dRight As Long

Oval1.GetDeviceRect dTop, dLeft, dBottom, dRight