I've been looking for an example like the Mail program uses for adding iPhoto images but without luck.
Can anyone point me to example?
Check the MediaLibrary classes in MBS Plugin:
if not NSMediaLibraryBrowserControllerMBS.available then
MsgBox "Please run on Mac OS X 10.9."
dim c as NSMediaLibraryBrowserControllerMBS
c = NSMediaLibraryBrowserControllerMBS.sharedMediaLibraryBrowserController
c.mediaLibraries = c.NSMediaLibraryImage
'c.NSMediaLibraryAudio + c.NSMediaLibraryMovie
c.Visible = True