static extern IntPtr SHBrowseForFolder(ref BROWSEINFO lpbi);

<DllImport("shell32.dll", SetLastError:=true, EntryPoint:="SHBrowseForFolderW", CharSet:=CharSet.Unicode)> _

Public Shared Function SHBrowseForFolder(<MarshalAs(UnmanagedType.Struct)>ByRef lpFileOp As BROWSEINFO) As IntPtr

Public Declare Function SHBrowseForFolder Lib "shell32.dll" Alias "SHBrowseForFolderA" _

        static extern IntPtr SHBrowseForFolder(ref BROWSEINFO lpbi);

                pidl = SHBrowseForFolder(ref bi);