Application Property

Applies To:

Atoms collection


The Application object.


LPDISPATCH/Object Atoms.Application


Read-only. Only counts explicit atoms.


To return a reference to the ChemFinder application:

Dim App As Object                      'Application object
Dim TotalAtoms As Object               'Atoms collection
Dim CurrentMolecule As Object          'Molecule object

Set TotalAtoms = CurrentMolecule.Atoms 'Gets Atoms        Set App = TotalAtoms.Application       'Gets ChemFinder                                        'application

'Code required to create the Molecule object has been 'omitted.

See Also:

Application Object

2005 CambridgeSoft Corporation. All Rights Reserved. Privacy Statement
Tel  800 315-7300 / 617 588-9300     Fax  617 588-9390     Email
CambridgeSoft Corporation, 100 CambridgePark Drive, Cambridge, MA 02140 USA