Sub Example_Contrast()
    ' Этот пример вставляет растровое изображение и находит текущий
    ' Контраст изображения. Затем изменяет Контраст изображения.
    
    ' Этот пример использует "downtown.jpg", находящийся в каталоге Sample.
    ' Если Вы не имеете изображения или если оно расположено в отличном
    ' каталоге, вставьте допустимый путь и название в переменную
    ' imageName ниже.
    Dim insertionPoint(0 To 2) As Double
    Dim scalefactor As Double
    Dim rotAngleInDegree As Double
    Dim 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

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