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)