>in the following code memonote is a memo field that is displayed and allowed edit
>
>How and where do i save the changes that are made in edit???
>
>save changes to my field memonote
>
>many thanks
>k
>
>

>strtofile(memonote,'m.txt')
>LOCAL oFrm
>
>oFrm= CREATEOBJECT("Note")
>oFrm.Edit1.Value = filetostr('m.txt') 
>
>oFrm.Show(1)
>
>************************************
>DEFINE CLASS Note AS Form
>
>	ADD OBJECT Edit1 AS EditBox WITH ;
>		Height= 470, ;
>		Left= 16, ;
>		ReadOnly= .f., ;
>		TabIndex= 2, ;
>		Top= 16, ;
>		Width= 530, ;
>		Value= ""
>ENDDEFINE
>
>Public Event MouseWheel As MouseWheelEventHandler
>
>
>PROCEDURE Object.MouseWheel
>LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>
>PROCEDURE edit1.MouseWheel
>		LPARAMETERS nDirection, nShift, nXCoord, nYCoord
>		
>		
>	ENDPROC
>
>
>oFrm.hide(1)
>

oFrm= CREATEOBJECT("Note")
oFrm.Edit1.ControlSource = "YourAlias.MemoNote"




************************************
DEFINE CLASS Note AS Form

	ADD OBJECT Edit1 AS EditBox WITH ;
		Height= 470, ;
		Left= 16, ;
		ReadOnly= .f., ;
		TabIndex= 2, ;
		Top= 16, ;
		Width= 530, ;
		Value= ""

         


ENDDEFINE



oFrm.hide(1)