Public Function ExtractObject( _
   ByVal Object As CiObject _
) As CiImage

Public Sub T_ExtractObjects(ByRef Tools As CiTools)
    Dim Obj As CiObject
    Dim ObjImg As CiImage   '  Image of extracted object
    Set Obj = Tools.FirstObject    
    Do While Not Obj Is Nothing
       Set ObjImg = Tools.ExtractObject(Obj)
      ' TODO:  Do something with ObjImg  For Example:
      '  ObjImg.Append FileName
      Set Obj = Tools.NextObject
    Loop
End Sub