>Have you made a reference to the component giving you the AcadCircle type?
Yes.
>You can also try to use the TypeName function like this:
>
Private MarkObject As AcadCircle
>
>Public Sub UnMark()
> If typename(MarkObject) = "AcadCircle" Then
> MarkObject.Delete
> Set MarkObject = Nothing
> End If
>End Sub
Thanks. That works great.
Roi
'MCP' Visual FoxPro
In Rome, there was a poem.
About a dog, who found two bone.
He lick the one, he lick the other.
He went pyscho, he drop dead!