Trouble with a by reference LONG in a wrapped OCX

Hi there,

I'm making use of VideoCapX wich can be downloaded from:
http://www.fathsoft.com/videocapx.html to capture images/video/audio
from a Dolphin app.

So, I've used the wizard to generate VIDEOCAPXLib_DVideoCapX class
wich seems to be pretty good until now.

Right now I'm trying to make bright, contrast, saturation and other
adjustments of the video capture, programatically manipulable. The
control allows this in the form of a VB Long passed by reference.

I'll paste here the vendors VB documentation and example:

**************************************************
GetVideoProcAmpValueRange methodRetrieve value range for video
property.


Syntax
Function GetVideoProcAmpValueRange (ValueIndex As Long, Min As Long,
Max As Long, SteppingDelta As Long, Default As Long) As Long

Return value
Long

Remarks
ValueIndex parameter is:
Brightness = 0,
Contrast = 1,
Hue = 2,
Saturation = 3,
Sharpness = 4,
Gamma = 5,
ColorEnable = 6,
WhiteBalance = 7,
BacklightCompensation = 8,
Gain = 9

Example
Dim Brightness As Long

VideoCapX.GetVideoProcAmp 0, Brightness

Dim MinVal As Long ,MaxVal As Long ,StepD As Long ,DefVal As Long
VideoCapX.GetVideoProcAmpValueRange 0, MinVal, MaxVal, StepD, DefVal

'set brightness here
Brightness=MinVal+((MaxVal-MinVal)/2)

VideoCapX.SetVideoProcAmp 0, Brightness
**************************************************

My trouble is that I cant get the values from dolphin.

I've tried:

property := VARIANT new.
instantiatedVideoCapX getVideoProcAmp: 1 value: property.

and

property := DWORD new asVariant.
instantiatedVideoCapX getVideoProcAmp: 1 value: property.

and

property := SWORD new.
instantiatedVideoCapX getVideoProcAmp: 1 value: property asParameter.

and

property := DWORD new.
instantiatedVideoCapX getVideoProcAmp: 1 value: property yourAddress.

and other bizarre combinations (as puting property in an array)
inspired by older posts of this newsgroup.

The results I'm getting is allways Invalid Type.

Any clue?

Sebastian
PD: I can post the packs I'm making if needed

.