[求助]VC中怎么调用ArcToolBox?

请教大家，VB中可以这样调用ToolBox，那么在VC中同样要调用ToolBox该怎么办呢？  
<P> <DEVELOPENV>Sub RunGPTool()<BR>  'Create the Geoprocessor object<BR>  Dim GP As Object<BR>  Set GP = CreateObject("esriGeoprocessing.GpDispatch.1")<BR>  <BR>  'Set the toolbox<BR>  GP.Toolbox = "D:\ArcGIS\ArcToolbox\Toolboxes\Analysis Tools.tbx"<BR>  <BR>  'Execute tools<BR>  GP.Clip "D:\Workspace\Portland.mdb\Region\streets", _<BR>    "D:\Workspace\Portland.mdb\Region\downtown", "D:\Workspace\Portland.mdb\Region\dt_streets"<BR>  <BR>  GP.Buffer "D:\Workspace\Portland.mdb\Region\dt_streets", _<BR>    "D:\Workspace\Portland.mdb\Region\dt_streetsbuf", "500"<BR></P>