Returns the translation unit with the given node number.

Syntax:

 
GetTransUnit( NodeNumber As Long ) As TransUnit
Return: TransUnit
Parameters: NodeNumber Node number of the translation unit to be returned.
Example: 
Dim ProjFile As ProjectFile
Dim TU As TransUnit

Set ProjFile = Application.ActiveProjectFile

If (ProjFile.IsTransUnit(117)) Then
    Set TU = ProjFile.GetTransUnit(117)
End If

See also:

Class ProjectFile

Last Updated: 03/11/04