Function Thumbnail(extends file as FolderItem) as Picture
  // import QuickLook into the CKFrameworks namespace
  CKFrameworks.import("QuickLook")
 
  // set up our options
  dim options as new Dictionary()
  options.value(CKFrameworks.kQLThumbnailOptionIconModeKey) = true
 
  // and grab the thumbnail
  return CKFrameworks.QLThumbnailImageCreate(CKFrameworks.kCFAllocatorDefault, _
    file, CKFrameworks.CGSizeMake(width, height), options).rbValue
End Function