Implementing an IShellFolder interface?

[Robin Tucker]

I need to create my own explorer-style control - I don't seem to have access
to IShellFolder - assuming I need it (which I think I do), how can this be
done? I've imported shell32.dll into my references.

I've seen a C# version of how to do it, but I have no idea how to translate
this into VB :-0.
(C# version below, no idea if it works or not!)

using System.Runtime. InteropServices ;

[Flags()]
enum SHCONTF
{
SHCONTF_FOLDERS = 0x20,
SHCONTF_NONFOLD ERS = 0x40,
SHCONTF_INCLUDE HIDDEN = 0x80,
SHCONTF_INIT_ON _FIRST_NEXT = 0x100,
SHCONTF_NETPRIN TERSRCH = 0x200,
SHCONTF_SHAREAB LE = 0x400,
SHCONTF_STORAGE = 0x800
}

[Flags()]
enum SFGAOF
{
SFGAO_CANCOPY = 0x1,
SFGAO_CANMOVE = 0x2,
SFGAO_CANLINK = 0x4,
SFGAO_STORAGE = 0x8,
SFGAO_CANRENAME = 0x10,
SFGAO_CANDELETE = 0x20,
SFGAO_HASPROPSH EET = 0x40,
SFGAO_DROPTARGE T = 0x100,
SFGAO_CAPABILIT YMASK = 0x177,
SFGAO_ENCRYPTED = 0x2000,
SFGAO_ISSLOW = 0x4000,
SFGAO_GHOSTED = 0x8000,
SFGAO_LINK = 0x10000,
SFGAO_SHARE = 0x20000,
SFGAO_READONLY = 0x40000,
SFGAO_HIDDEN = 0x80000,
SFGAO_DISPLAYAT TRMASK = 0xFC000,
SFGAO_FILESYSAN CESTOR = 0x10000000,
SFGAO_FOLDER = 0x20000000,
SFGAO_FILESYSTE M = 0x40000000,
SFGAO_HASSUBFOL DER = unchecked( (int) 0x80000000 ),
SFGAO_CONTENTSM ASK = unchecked( (int) 0x80000000 ),
SFGAO_VALIDATE = 0x1000000,
SFGAO_REMOVABLE = 0x2000000,
SFGAO_COMPRESSE D = 0x4000000,
SFGAO_BROWSABLE = 0x8000000,
SFGAO_NONENUMER ATED = 0x100000,
SFGAO_NEWCONTEN T = 0x200000,
SFGAO_CANMONIKE R = 0x400000,
SFGAO_HASSTORAG E = 0x400000,
SFGAO_STREAM = 0x400000,
SFGAO_STORAGEAN CESTOR = 0x800000,
SFGAO_STORAGECA PMASK = 0x70C50008
}

[Flags()]
enum SHGNO
{
SHGDN_NORMAL = 0x0,
SHGDN_INFOLDER = 0x1,
SHGDN_FOREDITIN G = 0x1000,
SHGDN_FORADDRES SBAR = 0x4000,
SHGDN_FORPARSIN G = 0x8000,
}

[StructLayout(La youtKind.Sequen tial)]
struct STRRET
{
int uType;
/*
IntPtr pOleStr;
uint uOffset;
*/
[MarshalAs(Unman agedType.ByValA rray, SizeConst=260)] byte[] cStr;
}

[
ComImport(),
Guid("000214E6-0000-0000-C000-000000000046"),
InterfaceType(C omInterfaceType .InterfaceIsIUn known)
]
interface IShellFolder
{
[PreserveSig()]
uint ParseDisplayNam e(
IntPtr hwnd,
IntPtr pbc,
[In(), MarshalAs(Unman agedType.LPWStr )] string pszDisplayName,
out uint pchEaten,
out IntPtr ppidl,
ref uint pdwAttributes);

[PreserveSig()]
uint EnumObjects(
IntPtr hwnd,
SHCONTF grfFlags,
out IEnumIDList ppenumIDList);

[PreserveSig()]
uint BindToObject(
IntPtr pidl,
IntPtr pbc,
[In()] ref Guid riid,
[MarshalAs(Unman agedType.Interf ace)] out object ppv);

[PreserveSig()]
uint BindToStorage(
IntPtr pidl,
IntPtr pbc,
[In()] ref Guid riid,
[MarshalAs(Unman agedType.Interf ace)] out object ppv);

[PreserveSig()]
uint CompareIDs(
int lParam,
IntPtr pidl1,
IntPtr pidl2);

[PreserveSig()]
uint CreateViewObjec t(
IntPtr hwndOwner,
[In()] ref Guid riid,
[MarshalAs(Unman agedType.Interf ace)] out object ppv);

[PreserveSig()]
uint GetAttributesOf (
int cidl,
[In(), MarshalAs(Unman agedType.LPArra y)] IntPtr[] apidl,
[MarshalAs(Unman agedType.LPArra y)] SFGAOF[] rgfInOut);

[PreserveSig()]
uint GetUIObjectOf(
IntPtr hwndOwner,
int cidl,
[In(), MarshalAs(Unman agedType.LPArra y)] IntPtr[] apidl,
[In()] ref Guid riid,
IntPtr rgfReserved,
[MarshalAs(Unman agedType.Interf ace)] out object ppv);

[PreserveSig()]
uint GetDisplayNameO f(
IntPtr pidl,
SHGNO uFlags,
out STRRET pName);

[PreserveSig()]
uint SetNameOf(
IntPtr hwnd,
IntPtr pidl,
[In(), MarshalAs(Unman agedType.LPWStr )] string pszName,
SHGNO uFlags,
out IntPtr ppidlOut);
}

[
ComImport(),
Guid("000214F2-0000-0000-C000-000000000046"),
InterfaceType(C omInterfaceType .InterfaceIsIUn known)
]
interface IEnumIDList {

[PreserveSig()]
uint Next(
int celt,
[MarshalAs(Unman agedType.LPArra y)] IntPtr[] rgelt,
out int pceltFetched);

void Skip(
int celt);

void Reset();

void Clone(
out IEnumIDList ppenum);
}