Returns the active translation unit.

Type Info:

 
ActiveTransUnit As TransUnit
Example: 
Dim App As Application
Dim TU As TransUnit

Set App = Application
Set TU = App.ActiveTransUnit
Remarks: Read-only property.
See also:

Class Application
Last Updated: 03/11/04