Thanks Naomi
i've been working at it with variations of what you suggested trying to get this thing to work.
Am i getting warm?

right now i'm getting held up up on your
'thisform.myEditBox.ControlSource = 'MyTable.MyMemoField' && You can set it in the Init of the form
my variation is getting me no where.

thanks for your time.

k

LOCAL oFrm
use students in 0 alias myTable shared


oFrm= createOBJECT("classRooms")
oFrm.Top = 24
oFrm.left = 800 && will keep right border
oFrm.Height = 573
oFrm.Width = 350
oFrm.Edit1.Width = 345

*oFrm.edit1.value = filetostr('m.txt') &&& this was the original

oFrm.edit1.ControlSource = 'MyTable.classrooms' && You can set it in the Init of the form


oFrm.Show(1)

************************************
DEFINE CLASS classrooms AS Form


ADD OBJECT Edit1 AS EditBox WITH ;
FontSize = 8, ;
FontStyle = 'n', ;
Height= 550, ;
Left= 2, ;
fontname='lucida console', ;
ReadOnly= .t., ;
TabIndex= 2, ;
Top= 2, ;
Value= ""
desktop = .t. &&& moved from setting oFrm
ENDDEFINE


Public Event MouseWheel As MouseWheelEventHandler

PROCEDURE Object.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord


PROCEDURE edit1.MouseWheel
LPARAMETERS nDirection, nShift, nXCoord, nYCoord

* Set focus to this control
If Type("thisform.ActiveControl") # "O" or thisform.ActiveControl < > this
this.SetFocus
EndIf

ENDPROC

oFrm.hide(1)