🚀 go-pugleaf

well here is a test program I threw together so we could work this out (your help is greately appreciated)

My compiler is marking my last line in red and telling me that I need an "=" and when i ignore and run it gives me a compile error for syntax.

Just a single form with a button called btnTest

Private Sub btnTest_Click()

Dim appRef As New Photoshop.Application
    Dim originalRulerUnits As Photoshop.PsUnits
    Set appRef = New Photoshop.Application
    originalRulerUnits = appRef.Preferences.RulerUnits
    appRef.Preferences.RulerUnits = psInches
    Dim docRef As Photoshop.Document
    Set docRef = appRef.Documents.Add(1, 1, 600, , psOpenCMYK)
    Set docRef = appRef.ActiveDocument
    docRef.ArtLayers.Add
    Dim selRef As Photoshop.Selection
    Dim fillColor As Photoshop.SolidColor
    Set fillColor = CreateObject("Photoshop.SolidColor")
    fillColor.CMYK.Black = 0
    fillColor.CMYK.Cyan = 0
    fillColor.CMYK.Magenta = 100
    fillColor.CMYK.Yellow = 100
    docRef.Selection.Select Array(Array(0, 0), Array(302, 0), Array(302, 302), Array(0, 302)), Type:=psReplaceSelection
    Set selRef = docRef.Selection
    selRef.Fill fillColor
    Dim lyrArtRef As Photoshop.ArtLayer
    Set lyrArtRef = docRef.ActiveLayer
    lyrArtRef.AdjustBrightnessContrast(-20,20)

End Sub