求LPBINDSTATUSCALLBACK在VB里的写法

就是下面的第5个参数……
HRESULT URLDownloadToFile(
  LPUNKNOWN pCaller,  // Caller's controlling IUnknown
  LPCWSTR szURL,      // Pointer to URL to be downloaded
  LPCTSTR szFileName, // Pointer to file name
  DWORD dwResv,       // Reserved for future use
  LPBINDSTATUSCALLBACK lpfnCB
                      // Caller's IBindStatusCallback
);
 
Parameters
pCaller 
[in] Pointer to the caller's controlling IUnknown. If the caller is not an ActiveX component, this value may be set to NULL. 
szURL 
[out] Pointer to the URL to be downloaded. Cannot be NULL. 
szFileName 
[out] Pointer to the name of the file returned by this function. The user should pass a buffer to be filled and, preferably, use MAX_PATH to allocate the maximum path size. 
dwResv 
[in] Reserved for future use; must be zero. 
lpfnCB 
[in] Pointer to the caller's IBindStatusCallback interface. Can be NULL. VB基本区同时提问，http://community.csdn.net/Expert/TopicView.asp?id=3498747 有200分，这里我最大只能放100分同时相关提问 http://community.csdn.net/Expert/TopicView.asp?id=3492942 有200分，在VB网络区，标题是求URLOpenStream，URLOpenPullStream，URLOpenBlockingStream的用法。欢迎帮忙解答