Getting an Approach OLE object from Notes

I have been trying to get a handle on an OLE Approach object from Notes. I have not been too successful. The Approach documentation uses examples relevant to OLE objects within the Approach environment, but in Notes there seems to be one extra step that I am missing. Here is my attempt to get a handle on the Approach document and then use the Print method:

Dim workspace As New NotesUIWorkspace

Dim uidoc As NotesUIDocument

Dim handle As Variant

Set uidoc = workspace.CurrentDocument

Set handle = uidoc.GetObject( “Resales” )

Set handle.ActiveView = “Resales”

Call handle.Print( 1, 2, 1)

I’m sure the above works in Approach, but in Notes I think you need to create an Approach document object because the variable “handle” does not have any of the properties or methods for an Approach document. The variable “handle” does seem to get a handle to the OLE object “Resales”, but no properties or methods. Any suggestions?