Ok this is all working now except for the desktop .t. part. I would like this form to appear outside the vfp window and i keep getting an error saying "property desktop is read-only"
What am i missing?
k

LOCAL oFrm

oFrm= createOBJECT("Rooms")
oFrm.Top = 24
oFrm.Left =400
oFrm.Height = 373
oFrm.Width = 500
oFrm.desktop = .t.

oFrm.edit1.value = filetostr('sample.TXT')


oFrm.Show(1)

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


ADD OBJECT Edit1 AS EditBox WITH ;
FontSize = 7.5, ;
Height= 409, ;
Left= 2, ;
fontname='Lucida Console', ;
ReadOnly= .t., ;
TabIndex= 2, ;
Top= 2, ;
Width= 489, ;
Value= ""
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)