LPITEMIDLIST SHBrowseForFolder(
	LPBROWSEINFO lpbi
);

typedef struct _browseinfo { 
    HWND hwndOwner; 
    LPCITEMIDLIST pidlRoot; 
    LPTSTR pszDisplayName; 
    LPCTSTR lpszTitle; 
    UINT ulFlags; 
    BFFCALLBACK lpfn; 
    LPARAM lParam; 
    int iImage; 
} BROWSEINFO, *PBROWSEINFO, *LPBROWSEINFO; 

typedef struct _ITEMIDLIST {
    SHITEMID mkid;
} ITEMIDLIST, * LPITEMIDLIST; 
typedef const ITEMIDLIST * LPCITEMIDLIST; 

typedef struct _SHITEMID { 
    USHORT cb; 
    BYTE   abID[ 1 ]; 
} SHITEMID, * LPSHITEMID; 

global type st_browseinfo from structure
	long		hwndowner
	long		pidlroot
	string		pszdisplayname
	string		lpsztitle
	long		ulflags
	long		lpfn
	long		lparam
	long		iimage
end type

FUNCTION ulong SHBrowseForFolderA (REF st_browseinfo bi) LIBRARY "Shell32.dll"