Sub Example_Brightness()
    ' Этот пример вставляет растровое изображение и находит текущую
    ' яркость изображения. Затем изменяет яркость изображения.
    
    ' Этот пример использует "downtown.jpg", найденный в каталоге Sample.
    ' Если Вы не имеете этого изображения или если он расположен в другом
    ' каталоге, вставьте допустимый путь и имя файла для переменной
    ' imageName ниже.
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotAngleInDegree As Double, rotAngle As Double
    Dim imageName As String
    Dim raster As AcadRasterImage
    imageName = "C:/AutoCAD/sample/downtown.jpg"
    
    insertionPoint(0) = 2#: insertionPoint(1) = 2#: insertionPoint(2) = 0#
    scalefactor = 1#
    rotAngleInDegree = 0#
    rotAngle = rotAngleInDegree * 3.141592 / 180#
    
    On Error Resume Next
    
    ' Создает растровое изображение в пространстве модели
    Set raster = ThisDrawing.ModelSpace.AddRaster(imageName, insertionPoint, scalefactor, rotAngle)
    If Err.Description = "File error" Then
        MsgBox imageName & " не был найден."
        Exit Sub
    End If

    ' Найдите текущую яркость
    ThisDrawing.Regen True
    MsgBox "Яркость в настоящее время установлена в: " & raster.Brightness, vbInformation
    
    ' Измените яркость на 5
    raster.Brightness = 5
    ThisDrawing.Regen True
    MsgBox "Яркость теперь установлена в: " & raster.Brightness, vbInformation
End Sub