Public Sub test() Dim pMXdoc As IMxDocument Set pMXdoc = ThisDocument Dim pMap As IMap Set pMap = pMXdoc.FocusMap Dim pRasterLayer As IRasterLayer Set pRasterLayer = pMap.Layer(0) Dim pLayerEffects As ILayerEffects Set pLayerEffects = pRasterLayer pLayerEffects.Brightness = 99 End Sub