Ho Googlato un po' e ho trovato questo codice:

codice:
 dim f as FolderItem
  
  f = GetOpenFolderItem("")
  
  if f <> Nil then
    Canvas1.Graphics.DrawPicture f.OpenAsPicture,0,0
  end if
Ve l'ho detto: io sto passando da VB6...