Private Sub Streams_and_Waterbodies_Click() 'create GxLayer object and specify its path Dim pGxLayerCls As IGxLayer Set pGxLayerCls = New GxLayer Dim pGxFile As IGxFile Set pGxFile = pGxLayerCls pGxFile.Path = "L:\LayerFiles\Hydrography\Stream.lyr" 'grab current dataframe Dim pMxDoc As IMxDocument Set pMxDoc = ThisDocument Dim pMap As IMap Set pMap = pMxDoc.FocusMap 'Assign the layer a name and make it visible when added Dim pLayer As ILayer Set pLayer = pGxLayerCls.Layer pLayer.Name = "Streams" pLayer.Visible = True 'Add layer to map pMap.AddLayer pGxLayerCls.Layer 'Refresh Viewer and update TOC pMxDoc.ActiveView.Refresh pMxDoc.UpdateContents End Sub