Local loForm as Form loForm = CreateObject("Form") loForm.BorderStyle = 1 loForm.AlwaysOnTop = .T. loForm.TitleBar = 0 loForm.Enabled = .F. loForm.AllowOutput = .T. loForm.Move( -1000,-1000 ) loForm.AddObject("edt","Editbox") loForm.edt.Move( 0, 0, loForm.Width, loForm.Height ) loform.edt.BorderStyle = 0 loForm.edt.Scrollbars = 0 loForm.edt.Visible = .T. loForm.Show() This.AddProperty("oInfo",m.loForm)The code displays the form right away, but outside the visible area. Otherwise you would need to call Show from the GotFocus, which would move the focus away from the current form. In the Unload event put
Thisform.oInfo = NULLIn the GotFocus event of each textbox put this code. Change the Assignment of Value to hold your actual text. Remember that string literals are limited to 254 characters. For long strings you have to use "..."+"....".
Thisform.oInfo.edt.Value = Replicate("A lot of text ",100) Thisform.oInfo.Move( _Screen.width-153, 1, 150, 150 )Finally, put this in the LostFocus event of the textbox:
Thisform.oInfo.Move(-1000,-1000)