Also, I hope you do define your forms visually and not through the code. Just type create form myTestForm in the command window and then the form will open up in the editor and you can put controls on it.

I'm sorry, I'll be busy in the next hour.

>This is the closest example i can find that i can work with. My only block right now is getting
>my text (sampletext.txt) into the editbox. How would i substiute this text for the one contained in
>he example below. I would prefer a type sampletext.txt into the display screen if that is possible.
>Any help would be appreciated.
>
>k
>
>LOCAL oFrm
>
>oFrm= CREATEOBJECT("TestForm")
>TEXT TO oFrm.Edit1.Value NOSHOW PRETEXT 1 + 2
> The problem displayed here is to do with
> using the mouse wheel to scroll the edit
> box. When the edit box has focus and the
> edit box is scrolled, any attempt to
> select text with the mouse will work
> as expected. However, when the edit box
> does not have focus and the edit box is
> scrolled, any attempt to select text with
> the mouse will jump the box back to its
> original position. The selection doesn't
> begin where you would expect.
>
> This drives my users crazy. In all their
> other applications (eg MS Outlook) this
> works as expected. However in our VFP
> application it jumps around in a very
> illogical fashion.
>ENDTEXT
>
>oFrm.Show(1)
>
>************************************
>DEFINE CLASS TestForm AS Form
> ADD OBJECT Text1 AS TextBox WITH ;
> Height= 37, ;
> Left= 36, ;
> TabIndex= 1, ;
> Top= 12, ;
> Width= 289
>
> ADD OBJECT Edit1 AS EditBox WITH ;
> Height= 109, ;
> Left= 36, ;
> ReadOnly= .t., ;
> TabIndex= 2, ;
> Top= 84, ;
> Width= 289, ;
> 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)