Public Function FindObject( _
   ByVal id As Integer _
) As AnnAutomationObject

Dim instance As AnnAutomationManager
Dim id As Integer
Dim value As AnnAutomationObject
 
value = instance.FindObject(id)

public AnnAutomationObject FindObject( 
   int id
)

public:
AnnAutomationObject^ FindObject( 
   int id
) 

Public Sub AnnAutomationManager_FindObject(ByVal manager As AnnAutomationManager)
   ' fine the line automation object
   Dim obj As AnnAutomationObject = manager.FindObject(AnnAutomationManager.LineObjectId)
   If Not obj Is Nothing Then
      obj.Object.Pen = New AnnPen(Color.Blue, New AnnLength(1, AnnUnit.Pixel))
   End If
End Sub

public void AnnAutomationManager_FindObject(AnnAutomationManager manager)
{
  // fine the line automation object
  AnnAutomationObject obj = manager.FindObject(AnnAutomationManager.LineObjectId);
  if(obj != null)
     obj.Object.Pen = new AnnPen(Color.Blue, new AnnLength(1, AnnUnit.Pixel));
}