[求助]关于加载栅格数据的问题

<P>分别用VC和VB写了一段加载栅格数据的代码，结果vc加载的数据显示为彩色，vb加载的数据显示为黑白的，以下是vb代码，请大家指点：</P>
<P>       dim pDataset as IDataset</P>
<P>       Set pDataset = pGxDataset.Dataset<BR>       Dim pRasterLyr As IRasterLayer</P>
<P>ElseIf pDataset.Type = esriDTRasterDataset Then<BR>          Dim pEunDataset As IEnumDataset<BR>          Set pEunDataset = pDataset.Subsets<BR>          pEunDataset.Reset<BR>          Set pDataset = pEunDataset.Next<BR>          <BR>      <BR>          Set pRasterLyr = New RasterLayer<BR>          <BR>          pRasterLyr.CreateFromDataset pDataset<BR>          pRasterLyr.Visible = True<BR>          g_pMap.AddLayer pRasterLyr<BR>          <BR>          Set pDataset = pEunDataset.Next</P>

请楼主写出vc加栅格图层数据的代码,让我参考一下吧