Hi listers,

First, I want to thank Chris Mack - coastal engineer for providing the
solution.


original question:

I have been trying to add a raster layer (.tif) to my project
programmatically. The program runs but does not display the layer. Any ideas

of why?
I have attached the VBA Script. I am new to ArcGIS VBA programming. The
following code is the same as the code for adding a shapefile with a few
adjustments for rasters.

solution:

Public Sub AddTiffImage()
' Get the active Document and active Map
Dim pThisDoc As IMxDocument
Set pThisDoc = ThisDocument
Dim pThisMap As IMap
Set pThisMap = pThisDoc.FocusMap

' Get raster image from disk
Dim sPath As String
Dim sFileName As String
sPath = "c:\gis\20010339\aerials"
sRasterDatasetFilename = "a.tif"

' Create a raster layer
Dim pRasterLayer As IRasterLayer
Set pRasterLayer = New RasterLayer

' Create a RasterWorkSpaceFactory and RasterWorkspace
Dim pRasterWorkspaceFactory As IWorkspaceFactory
Set pRasterWorkspaceFactory = New RasterWorkspaceFactory
Dim pRasterWorkspace As IRasterWorkspace
If Not pRasterWorkspaceFactory.IsWorkspace(sPath) Then Exit Sub
Set pRasterWorkspace = pRasterWorkspaceFactory.OpenFromFile(sPath, 0)

' Get RasterDataset and convert to Raster
Dim pRasterDataset As IRasterDataset
Set pRasterDataset =
pRasterWorkspace.OpenRasterDataset(sRasterDatasetFilename)
Dim pRaster As IRaster
Set pRaster = pRasterDataset.CreateDefaultRaster
' Add it to the active Map
pRasterLayer.CreateFromRaster pRaster
pThisMap.AddLayer pRasterLayer
End Sub