>	lcCursor=SYS(2015)
>	lnSelect=SELECT()
>	
>	Create Cursor (lcCursor) (cTitle c(100), cSubject c(100), cPrintData m)
>
>	lcCaption=toCurrentForm.Caption
>	lcTitle=AllTrim(Left(lcCaption, At(':', lcCaption)-1))+" Notepad"
>	lcSubject=AllTrim(SubStr(lcCaption, RAt(':', lcCaption)+1))
>	Insert Into (lcCursor) Values (lcTitle, lcSubject, toCurrentForm.ActiveControl.Value)
>	Select (lcCursor)
>


One additional thought.

Try passing tocurrentfor.activeControl.value as a parameter by value -- so that this method contains no object references. If this works, it will tell us that something in the object reference was causing a problem. If not, on to the next solution.

Thanks

Gar W. Lipow