// load list of filters into Listbox

dim a() as string
dim cf as CIFilterMBS

// get all image categories
a=ciFilterMBS.FilterNamesInCategory(CIFilterMBS.kCICategoryStillImage)

StaticText1.text=str(UBound(a))+" filters."

for each s as string in a
  
  // add to listbox
  Listbox1.AddRow s
  
  // load this filter
  cf=CIFilterMBS.FilterWithName(s)
  
  // And look into the attributes for the Displayname
  if cf<>nil then
    Listbox1.cell(Listbox1.LastIndex,1)=cf.DisplayName
  end if
next

// some filter
dim x as new CIFilterCropMBS

// create a copy
dim f as CIFilterMBS = CIFilterMBS.FilterWithHandle(x.Handle)

// and show name
MsgBox f.FilterName

dim cf as CIFilterMBS
// load this filter
cf=CIFilterMBS.FilterWithName("CIAffineTile")