🚀 go-pugleaf

Can someone please show me how I can fire an onchange event for a dropdown 
list after I select one of the items programatically?  My current code is:

   TComInterface<IHTMLDocument2> Doc;
        ActiveBrowser->Document->QueryInterface(IID_IHTMLDocument2,(LPVOID*)&Doc);
        if( Doc )
        {
            TComInterface<IHTMLElementCollection> All;
            Doc->get_all(&All);
            if( All )
            {
                long count = 0;
                All->get_length(&count);

                for(long idx = 0; idx < count; ++idx)
                {
                    TVariant item = idx;
                    TVariant index = 0;
                    TComInterface<IDispatch> Disp;

                    All->item(item, index, &Disp);
                    if( Disp )
                    {
                     WideString value;
                     int found;
                       TComInterface<IHTMLSelectElement> Input;
                       Disp->QueryInterface(IID_IHTMLSelectElement,(LPVOID*)&Input);
                       Value = "";

                        if( Input ) //  Found a Drop down box
                        {  IDispatch *ppvdispOption;
                           IHTMLOptionElement *ppvOption;
                           BSTR *pszOptText;
                           WideString name;

                           Input->get_name(&name);
                           AnsiString Name = AnsiString(name);

                           if(UpperCase(Name)==UpperCase(AnsiString(Field))) 
{
                           long i;

                           long length;

                           Input->get_length(&length);

                           for(i=0;i<length;i++)
                           {TVariant index = i;
                            Input->item( index, index, &ppvdispOption );
                            ppvdispOption->QueryInterface( 
IID_IHTMLOptionElement,(void **) 
&ppvOption);
                            ppvOption->get_text(&value);

                            AnsiString TValue = AnsiString(value);
                            Trim(TValue);

                            if(UpperCase(TValue)==UpperCase(Value))
                            {
                             Input->put_selectedIndex(i);  // Selects 
correct item from list

                             if(Special=='C')  // Control needs to fire 
onchange event...
                             {

                             TComInterface<IHTMLSelectElement> Input;
                             Disp->QueryInterface(IID_IHTMLSelectElement,(LPVOID*)&Input);
                             Input->put_onchange(index);

                            (etc)

This code does not appear to fire the onchange event.  I know it's because 
of the TVariant that I am passing to the event but I don't know what it's 
looking for,


Thanks for looking
Mitch McInelly