Photoshop CS 2 VBScript problem

Hi everyone,



I need to mofify color balance of an ArtLayer using its 'AdjustColorBalance' method. Can anyone tell me what might be wrong with the following VBA code ? (It doesn't work yet, at least for now)



'Declare 3 arrays of numbers and a flag

Dim lngShadows(1 To 3) as Long

Dim lngMidtones(1 To 3) as long

DIM lngHighlights(1 To 3) as Long

Dim fPreserveLuninosity as Boolean



'Initialize the arrays

lngShadows(1) = -10

lngShadows(2) = 0

lngShadows(3) = 10



'Repeat for other 2 arrays



'Make sure document is in RGB mode

appRef.ActiveDocument.ChangeMode 2 'RGB/8 (psConvertToRGB)



fPreserveLuminosity = False



'Make the changes

appRef.ActiveDocument.ActiveLayer.AdjustColorBalance (intShadows, intMidtones, intHighlights, fPreserveLuminosity)



'NOTHING HAPPENS...



Any pointers or other suggestions about what might be wrong with this code will be greatfully received :)



Many thanks again,



Lars