>Thanks Naomi. Here is the calling code from a form. The smtpmail.prg is in the poject.
>
>

>
>**** new email
>SET PROCEDURE TO smtpmail.prg
>
>cSmtps="smtp.xtra.co.nz"  &&ALLTRIM(gst.smtps)
>cBan="Wellington Apprelemaster"
>cFrom="shafid@khan.co.nz"
>cTo="shafid@xtra.co.nz"
>cSubj="National account files from "+cban
>cMsg="National account files from "+cban
>cAttch="C:\khan\khan.dbf"
>
>SendSmtpEmail(cSmtps,cFrom,cTo,cSubj,cMsg,cAttch)
>
>

>
>How do I hook up the new class I have created "Oletest" to this form ??

In this function SendSmtpEmail there is a createobject statement. Can you post it and replace with your subclassed control instead?