ForwardAsVCard a custom contact from in outlook 2000

[cath11]

Hi!

I customized a contact form and on the click event of a button I write this code:

sub cmbSend_Click()
Set objThisPage = Item.GetInspector.ModifiedFormPages("CustomerForm&quot
Set colControls = objThisPage.Controls
Set objOA = CreateObject("Outlook.Application&quot
Set objMail = objOA.CreateItem(olMailItem)
Set objMail = Item.ForwardAsVCard
'objMail.Recipients.Add "michelc@biotonix.com"
objMail.Send
end sub

and when I recieve the e-email, I recieve the original contact form and not the
one that I modified.

Tanks for your help!
.